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SECTION  I 
INTRODUCTION 


GENERAL 

The  Bird  Impact  Math  Model  Computer  Program  (IMPACT)  is  a system  of 
computer  programs  for  calculating  the  transient  dynamic  response  of  a 
windshield  system  subjected  to  impact  loading.  The  programs  were  de- 
signed and  coded  to  provide  a reliable,  efficient,  and  convenient  tool 
for  use  in  the  windshield  design  process.  Effective  application  of 
IMPACT  should  reduce  the  time  and  cost  required  for  both  design  and 
testing  of  these  complex  structural  systems. 

This  document  provides  detailed  descriptions  of  the  computer  code 
intended  for  use  by  the  engineer/programmer  responsible  for  implementa- 
tion and  maintenance  of  the  IMPACT  system.  The  theoretical  development 
and  the  resulting  formulations  of  the  analytical  approach  to  the  solu- 
tion process  are  described  in  Part  1 of  this  report.  Part  2 of  this 
report  is  intended  for  the  engineering  user  and  describes  modeling  tech- 
niques, input  data  requirements,  and  application  of  the  programs  to 
windshield  design  problems. 

SYSTEM  COMPONENTS 

The  IMPACT  system  is  comprised  of  seven  stand  alone  computer  programs 
designed  for  batch  mode  operation.  In  addition,  the  design  of  the  system 
provides  for  the  optional  use  of  the  CDC  utility  UPDATE,  an  editing  and 
maintenance  program  for  files  of  card  images. 

The  seven  stand  alone  computer  programs  which  comprise  the  IMPACT 
system  are 

1)  Laminate  Generator 

2)  Initial  Generator 

3)  Loads  Generator 
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4)  FORMAT  Phase  II 

5)  Linear  Incremental  Solution 

6)  Nonlinear  Incremental  Solution 

7)  Postprocessor 


The  interface  between  these  programs  consists  of  card  image  or  bin- 
ary matrix  data  stored  on  sequential  external  files.  The  design  of  the 
system  provides  for  optional  use  of  some  of  these  programs  when  applying 
the  system  to  a given  design  problem. 

Six  of  the  seven  computer  programs  in  the  IMPACT  system  are  new  and 
were  written  specifically  for  the  Windshield  Technology  Demonstrator 
Program.  The  seventh  program  is  a modified  version  of  FORMAT  Phase  II, 
the  matrix  abstraction  phase  of  the  FORMAT  system.  These  modifications, 
made  in  conjunction  with  this  effort,  are  documented  separately  from 
this  report  as  supplements  to  existing  FORMAT  documentation  (References 
6 and  10). 

Some  code  for  the  solution  of  eigen  problems  and  theory  for  the 
sorting  of  tabular  data  were  obtained  from  outside  sources.  The  eigen 
equation  solver,  used  in  the  incremental  solution  of  the  equations  of 
motion,  is  the  RGEIG  module  obtained  from  the  EISPACK  library  of  eigen 
problem  solvers  (Reference  16).  The  sort  routines  (QKS0RT,  et  al.)  used 
in  the  initial  matrix  generation  step,  are  original  code  based  on  sorting 
theory  developed  by  Knuth  (Reference  17). 

COOING  CHARACTERISTICS 

All  coding  in  the  IMPACT  system  was  done  in  the  FORTRAN  IV  program- 
ming language.  The  code  is  oriented  to  the  CDC  computer  due  to  the 
following  characteristics. 

1)  No  double  precision  data  or  arithmetic  operations  are  used  in 
lieu  of  the  accuracy  of  the  60  bit  word  length. 

2)  Alphanumeric  data  is  stored  at  10  characters/word. 
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3)  Use  of  che  COC  FORTRAN  u -11 1 ties  ENC0DE/DEC0DE  is  employed. 

4)  The  character  is  used  as  delimiters  for  alphanumeric  char- 
acter strings  in  some  FORMAT  statements. 

5)  The  system  input  file  is  repositioned  to  re-read  data  in  the 
input  stream. 

6)  The  system  design  is  enhanced  by  the  use  of  the  CDC  utility, 
UPDATE. 

All  external  files  used  by  the  code  are  sequential,  no  random  access 
techniques  are  employed. 

The  development  of  the  IMPACT  system  took  place  on  the  CDC  CYBER-74 
computer  at  the  ASD  Computer  Center,  Wright-Patterson  AF8,  Dayton,  Ohio. 
The  operating  system  in  place  during  this  time  was  NOS/BE  L414J  CYBR  CMR3. 
All  compilation  was  performed  by  the  FTN  compiler  at  optimization  level 
1.  The  version  of  the  compiler  was  FTN  4.5+414. 


SECTION  II 
SYSTEM  OVERVIEW 


The  user  Initiates  an  analysis  by  preparing  tabular  data  which  des- 
cribes the  Idealized  model  of  the  windshield  system  under  Investigation. 
The  model  may  Include  support  structure  for  the  transparency  which  may 
itself  consist  of  a number  of  laminates.  The  tabular  data  prepared  by 
the  user,  consisting  of  geometry,  constraint,  material  property,  and 
element  definition  data,  is  described  in  detail  in  Part  2. 

PROGRAM  FUNCTIONS 

The  Laminate  Generator  provides  a preprocessing  function  with  respect 
to  multi-layered  transparencies.  Optionally,  the  user  may  prepare  the 
model  definition  data  consistent  with  the  requirements  of  the  Laminate 
Generator.  The  program  will  then  augment  the  input  model  definition  data 
with  the  joint  coordinates  and  element  definitions  of  interior  joints  and 
elements  within  a laminate.  In  addition,  surface  normal  vectors  repres- 
enting a unit  pressure  distribution  over  the  exterior  surface  of  the 
transparency  are  generated.  When  applicable,  this  program  reduces  the 
amount  of  input  data  prepared  by  the  user  and  provides  vector  data  for 
use  in  assembling  pressure  loading  conditions  in  subsequent  analysis 
steps. 


The  Initial  Generator  serves  the  prime  function  of  transforming  the 
complete  model  definition  data  in  tabular  form  into  matrix  data  consist- 
ent with  the  requirements  of  the  subsequent  solution  process.  Using  the 
model  definition  data,  the  unassembled  element  stiffness,  damping,  and 
mass  matrices  are  generated  as  are  other  matrices  of  geometric  trans- 


loads  on  the  Idealized  model  as  a function  of  time  and  bird  length,  mass, 
velocity,  and  Impact  direction.  Optionally,  the  user  may  prepare  the 
model  definition  data  to  include  the  description  of  the  Impact  loading 
consistent  with  the  requirements  of  the  Loads  Generator.  The  program 
will  then  generate  a matrix  of  incremental  joint  loads  at  the  times 
specified  in  either  card  image  or  binary  form. 

The  FORMAT  Phase  II  program  is  used  to  compute  the  structural  mass 
and  stiffness  matrices,  decompose  the  structural  stiffness  matrix,  ex- 
tract vibration  modes,  perform  the  modal  transformation,  and  produce 
properly  ordered  binary  output  data  files  for  input  to  the  Incremental 
solution  step.  Input  to  this  processing  step  are  the  binary  file  of 
matrices  from  the  Initial  Generator  and,  optionally,  the  loads  matrix 
from  the  Loads  Generator  in  either  card  image  form  or  as  a binary  matrix 
in  a separate  file.  The  required  tasks  in  this  phase  of  the  solution 
process  may  be  accomplished  in  one  or  more  executions  of  the  FORMAT 
program. 

The  Linear  and  Nonlinear  Incremental  Solution  programs  solve  the 
equations  of  motion  incrementally  for  the  modal  response,  structural 
displacements,  and  element  forces,  stresses,  and  strains.  The  results 
from  each  increment  are  output  to  a binary  file  for  subsequent  process- 
ing. The  format  and  content  of  the  output  file  is  identical  for  either 
a linear  or  non-linear  solution. 

The  Postprocessor  accepts  the  output  file  from  either  a linear  or 
nonlinear  solution  and  selectively  prints  the  results.  Selection  may 
be  specified  for  time  Increments,  joints,  modes,  and  elements  In  any 
logical  combination. 

DATA  FILES 

Figure  2.1  shows  the  flow  of  data  through  a complete  solution. 

Each  data  file  is  Identified  for  subsequent  reference  in  this  discussion. 
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Figure  2.1.  Data  Flow  Through  Complete  Solution 
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e.g.,  Cl,  M3,  etc.  The  FORTRAN  logical  unit  numbers  of  the  input  and 
output  files  for  each  program  are  shown  in  parenthesis.  Not  shown  in  the 
figure  is  system  print  file  6 which  is  used  for  printed  output  by  each 
program  nor  is  the  use  of  the  CDC  utility  program  UPDATE  which  is  dis- 
cussed later  in  this  section. 

File  Formats 

There  are  only  two  file  structures  used  for  all  data  files  shown  in 
Figure  2.1.  Those  files  identified  with  the  letter  "C"  are  sequential 
files  of  card  Images  (formatted).  Each  logical  record  in  these  files 
corresponds  to  a single  card  and  contains  a string  of  80  characters. 

The  formats  associated  with  each  card  are  given  in  Part  2. 

Those  files  identified  with  the  letter  "M"  are  sequential  files  of 
matrix  data  (binary,  unformatted).  The  structure  of  these  files  corres- 
ponds to  that  of  FORMAT  matrix  data  (Reference  1).  For  purposes  of  con- 
tinuity, a description  of  this  file  structure  is  repeated  here. 

Each  logical  record  in  these  files  is  of  the  form 
IC0L,  K0DE,  NUM,  (A(I),I*1  ,NUM) 

where  IC0L  Is  an  integer  identifier  for  the  record,  K0DE  is  an  Integer 
flag  indicating  compressed  or  expanded  mode  for  the  data  part  of  record 
(array  A),  NUM  is  an  Integer  number  equal  to  the  number  of  words  remain- 
ing in  the  record,  and  A is  an  array  of  variable  length  containing  the 
actual  data  to  be  read  or  written. 

The  logical  records  in  the  file  are  structured  as  follows 
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Tape  header 
Matrix  A header 
Column  1 of  matrix  A 
Column  2 of  matrix  A 


Last  column  of  matrix  A 
Matrix  A trailer 
Matrix  B header 
Column  1 of  matrix  B 
Column  2 of  matrix  8 


Last  column  of  matrix  B 
Matrix  B trailer 


Tape  trailer 


The  contents  of  the  header  and  trailer  records  are  as  follows 


Tape  header 

IC0L 

-10 

K0DE 

0 

NUM 

7 

Tape  trailer 

-20 

0 

1 

Matrix  header 

- 1 

0 

9 

Matrix  trailer 

- 2 

0 

1 

Data 

(TNAME(I),I=1 ,6) ,TM0D 
0 

(MNAME(I),IS1 ,6) ,MM0D,IMAX,JMAX 
0 


where  TNAME  and  MNAME  are  six  character  tape  and  matrix  names  stored 
one  character  per  word  with  blank  word  fill  in  trailing  words  as  necess 
ary,  TM0D  and  MM0D  are  integer  numbers  used  as  modifiers  of  the  tape 
and  matrix  names  for  identification,  and  IMAX  and  JMAX  are  the  row  and 
column  dimensions  of  the  matrix. 


In  matrix  column  data,IC0L  is  a positive  integer  equal  to  the  column 
number.  If  a column  of  a matrix  has  more  than  50S  non-zero  elements,  the 
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.k. 


column  is  written  in  expanded  form  (K0DE=O)  and  NUM  is  equal  to  IMAX. 

If  a column  has  less  than  50%  non-zero  elements,  the  column  is  written 
in  compressed  form  (K0DE=1).  Compression  is  accomplished  by  forming  an 
array  of  the  non-zero  values  and  their  corresponding  row  locations  in 
the  column  as  the  data  part  of  the  record.  For  example,  if  the  12th 
column  of  a matrix  with  a row  dimension  of  100  had  only  3 non-zero  elements, 
it  would  be  compressed  and  appear  as  a logical  record  of  the  form 
IC0L  K0DE  NUM  Data 

12  1 6 V Lj,  V2,  l2»  V3,  L3 

where  IC0L  3 12  is  the  column  number,  K0DE  * 1 indicates  a data  record 
in  compressed  form,  NUM  3 6 is  the  number  of  words  remaining  in  the 
record  (three  pairs  of  value  and  location),  the  element  values  are  V^, 

V2,  V3,  and  the  row  locations  of  these  elements  are  L1 , l2>  and  L-j. 

Note  that  L^,  L2>  L3  must  be  in  ascending  order. 

If  a column  of  a matrix  is  completely  null,  no  record  for  that  column 
will  be  present  in  the  file. 

File  Contents 

The  files  shown  in  Figure  2.1  are  the  master  files  used  by  the  IMPACT 
system  to  pass  data  between  each  of  the  stand  alone  programs.  The  cont- 
ent of  each  of  the  card  image  files  is  given  in  detail  in  Part  2.  The 
content  of  each  of  the  matrix  data  files  is  given  in  Table  2.1.  The 
FORMAT  tape  and  matrix  names  shown  in  parentheses  are  specified  by  user 
input  and,  consequently,  may  vary  while  all  other  names  are  fixed  since 
they  are  imbedded  In  the  program  code. 

USE  OF  UPOATE 

The  design  of  the  IMPACT  system  provides  for  the  optional  use  of  the 
COC  utility  UPDATE  during  the  preprocessing  phase.  This  phase  includes 
the  execution  of  the  Laminate  Generator,  Initial  Generator,  and  Loads 
Generator.  Figure  2.2  shows  the  intended  use  of  UPDATE  in  an  application 
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TABLE  2.1.  CONTENT  OF  MASTER  MATRIX  DATA  FILES 


FILE 

10 

FORMAT  NAMES 

AND  MOD 

IFIERS 

DESCRIPTION 

TAPE 

MATRIX 

UZER0.1 

U . original  joint  coordinates 

MPT.l 

MPT,  material  property  data 

ECT.1 

ECT,  element  constants 

PRUPT.l 

PRUpt»  reordering  transform  for 
degrees  of  freedom 

PRUF.l 

PDI,p,  reordering  transform  for 
elements 

KEL.l 

k,  lumped  element  stiffness 

MEL.l 

m,  lumped  element  mass 

Ml 

MT'APE.l 

KBEL.l 

k,  unlumped  element  stiffness 

CBEL.l 

c,  unlumped  element  damping 

FFBAR.l 

Fp,  element  force  transform 

• 

SIGFB.l 

Op,  element  stress  transform 

EPS  IG  > 1 

e , element  strain  transform 

0 

DEBT,1 

siy,  element  thermal  deformations 

EVT.l 

EVT,  element  variables 

C0NST.1 

C0NST,  problem  constants 

M2 

LTAPE.l 

DP0T.1 

6PU)T’  1ncremental  applied  loads 
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TABLE  2.1.  CONTENT  OF  MASTER  MATRIX  DATA  FILES  (Continued) 


FORMAT  NAMES 
FILE  AND  MODIFIERS 
ID  TAPE 


FFBAR.l 

SIGFB.l 

EPSIG.l 

DEBT.l 


CONST,! 


M4  (FILE21.1) 


DESCRIPTION 


PUF,  element  force  modal 
transformation 


Copied  from  file  Ml 


(PBPHI.l)  5P/,»n,  transformed  Incremen- 

tal  applied  loads 

(PBUPTJ ,1 ) pypTj»  degree  of  freedom  modal 

transformation 
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TABLE  2.1.  CONTENT  OF  MASTER  MATRIX  DATA  FILES  (Continued) 


FORMAT  NJ 
AND  MOO I 

\MES 

rIERS 

DESCRIPTION 

TAPE 

MATRIX 

C0NST.1 

C0NST,  augmented  problem 
constants 

TIME ,1 

t,  incremental  time  history 

WIND0W, 52877 
(linear) 

UZER0.1 

Copied  from  file  M3 

(PBPHI.l) 

Copied  from  file  M4 

(PBUPTJ ,1 ) 

Copied  from  file  M4 

TAPE.l 

• 

(non-linear) 

RESPNS.S 

V 5V  V and  V 

modal  response 

BARS, 6 

, a , and  efl  , bar 
*bb  6b  SB 

element  forces,  stresses, 
and  strains 

MEMBRN.e 

Fv  , aB  , and  t.  , membrane 
*8m  6M  sM 

element  forces,  stresses, 
and  strains 

CELLS, 3 

F if  , , and  z , cell 

^ec  sc  sc 

element  forces,  stresses, 
and  strains 

where  8 Is  the  increment  number 
and  these  four  matrices  are 
repeated  for  each  time  increment 
If  there  are  no  elements  of  a 
given  type,  the  corresponding 
matrix  will  not  be  present. 

FILE 

ID 


M5 
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original  model 
definition  data 


UPDATE 
(optional ) 


D 


LAMINATE 
GENERATOR 
(optional ) 


UPDATE 
(optional ) 


UPDATE 
(optional ) 


Figure  2.2.  Function  of  UPDATE  in  Preprocessing 


1 


using  all  three  preprocessing  programs.  The  basic  function  of  UPDATE 
in  the  IMPACT  system  Is  to  edit  the  model  definition  data  as  necessary 
for  each  of  the  preprocessing  programs.  A secondary  function  is  to 
permanently  store  the  model  definition  data  in  an  easily  accessible 
form  once  it  has  been  read  Into  the  system.  On  a large  model  with  a 
large  amount  of  data,  this  will  avoid  many  card  handling  and  reader  errors 
each  time  the  model  definition  data  Is  required. 

In  Figure  2.2,  each  of  UPDATE  steps  as  well  as  the  execution  of  the 
Laminate  and  Loads  Generators  are  optional.  Obviously,  many  combinations 
of  these  programs  are  possible  In  applying  these  tools  to  the  variety 
of  design  problems  a user  might  encounter.  Suffice  to  say  that  the  eff- 
ective use  of  UPDATE  in  the  preprocessing  phase  will  enhance  the  users 
effectiveness  by  alleviating  card  handling  problems. 
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SECTION  III 

OPERATIONAL  CONSIDERATIONS 


GENERAL 

Only  one  of  the  six  new  programs  in  the  IMPACT  system  currently 
uses  the  overlay  capability  of  the  CDC  operating  system.  This  feature 
is  used  extensively  by  the  Initial  Generator.  The  overlay  is  accompl- 
ished using  th£  SEGLOAD  option  of  the  loader.  The  SEGLOAD  directives 
for  Implementation  of  this  program  are  given  in  Section  V under  the 
heading  CORE  UTILIZATION. 

Significant  savings  in  core  requirements  could  be  realized  by  using 
overlay  In  the  implementation  of  the  Linear  and  Non-Linear  Incremental 
Solution  programs.  The  remaining  new  programs  coded  for  IMPACT  are 
relatively  small  and  would  not  yield  enough  savings  to  justify  overlay. 
The  FORMAT  program  already  uses  this  feature. 

The  following  tables  gives  1)  minimum  core  requirements  for  the 
current  version  of  each  program  as  implemented,  and  2)  the  associated 
size  of  blank  common  In  the  compiled  code  as  implemented  where  appli- 
cable. The  core  requirement  is  in  octal  and  the  blank  common  region  is 
in  decimal . 


PROGRAM 

Laminate  Generator 

Initial  Generator 

Loads  Generator 

FORMAT  Phase  II 

Linear  Incremental  Solution 

Nonlinear  Incremental  Solution 

Postprocessor 


CORE 

REQUIREMENT 

(octal) 

BLANK  COMMON 
LENGTH 
(decimal ) 

130000 

NA 

130000 

NA 

71000 

NA 

100000 

10000 

104000 

8000 

134000 

8000 

60000 

10000 
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EXTENDING  BLANK  COMMON 

The  FORMAT  Phase  II  program,  the  Linear  and  Non-Linear  Incremental 
Solutions,  and  the  Postprocessor  use  blank  common  exclusively  for  core 
storage  of  data  during  their  execution.  Space  is  allocated  within  the 
blank  common  region  for  all  arrays  required  in  each  program.  The  array 
space  is  allocated  according  to  problem  size  as  defined  by  input  data. 

Even  though  the  blank  common  regions  are  of  fixed  dimension  in  the 
source  code,  the  effective  blank  common  region  can  be  increased  at  exe- 
cution time  without  recompiling  any  code  when  operating  on  the  CDC 
system.  By  requesting  additional  core  on  the  job  request  card  and  supp- 
lying input  data  to  the  program  indicating  the  increased  size  of  blank 
common,  larger  problems  can  be  processed  than  could  be  accommodated  by 
the  dimensioned  size  of  the  work  area  in  the  compiled  code. 

For  example,  a program  requires  a field  length  of  100000  words 
(octal)  with  a blank  common  region  of  10000  words  (decimal).  For  a 
given  problem,  an  increase  of  2000  words  (decimal)  is  required  in  the 
blank  common  region.  By  requesting  an  additional  4000  words  (octal) 
for  program  execution  to  account  for  the  2000  word  (decimal)  increase 
in  blank  common  region  and  inputing  data  to  the  program  specifying  this 
increase  in  available  work  space,  the  program  could  process  the  larger 
problem  without  recompiling  any  code. 

Of  course,  this  procedure  can  be  used  only  with  a program  whose  str- 
ucture and  input  are  consistent  with  this  philosophy.  The  four  programs 
of  the  IMPACT  system  mentioned  above  conform  to  these  requirements.  The 
blank  common  size  requirements  and  associated  input  data  to  over  ride 
the  size  parameters  in  the  code  are  given  in  Sections  VII,  VIII,  and  IX 
of  this  document  under  the  heading  LIMITATIONS.  Again,  input  card  for- 
mats associated  with  this  data  are  given  in  Part  2.  Similar  information 
regarding  FORMAT  Phase  II  Is  given  in  References  6 and  10  and  discussed 
in  Part  2. 
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OVER  RIDING  FILE  NAMES 

On  the  CDC  system  when  executing  multiple  stand  alone  programs  as  may 
be  done  using  IMPACT,  it  may  be  necessary  to  over  ride  system  default 
file  names  because  of  conflicts  between  two  programs.  That  is,  one 
program  may  output  its  data  on  a file  named  TAPE!  and  the  second  program 
may  expect  its  input  on  TAPE3.  In  order  to  resolve  this  conflict,  the 
default  file  name  in  one  of  the  programs  must  be  temporarily  renamed 
during  the  execution  of  that  program. 

On  the  CDC  system,  file  names  of  FORTRAN  programs  are  established 
by  means  of  the  PROGRAM  statement,  the  first  statement  of  the  main  pro- 
gram. The  system  provides  for  over  riding  these  names  at  execution  time 
by  means  of  a system  control  card.  The  format  of  this  command,  however, 
requires  foreknowledge  of  the  sequence  of  appearance  of  file  names  in 
the  PROGRAM  statement  for  a given  program. 

Table  3.1  gives  the  PROGRAM  statements  for  each  of  the  seven  programs 
in  the  IMPACT  system.  It  shows  all  files  that  are  used  by  each  program, 
and,- together  with  Figure  2.1,  implicity  defines  all  files  used  as 
scratch  as  well  as  those  used  for  master  input/output. 

SYSTEM  CONTROL  CARDS 

As  previously  stated,  the  seven  programs  of  the  IMPACT  system  may 
be  used  in  any  number  of  combinations  in  actual  application  to  the  var- 
iety of  design  problems  that  may  be  encountered.  However,  in  order  to 
show  an  example  of  a complete  deck  set  up  including  system  control  cards 
and  data,  a single  run  using  all  components  of  the  IMPACT  system  is  des- 
cribed here. 

Table  3.2  gives  the  system  control  cards  for  a complete  solution 
while  Table  3.3  lists  the  corresponding  user  input  data.  The  complete 
job  is  broken  down  into  steps  for  reference  in  the  tables  and  this  dis- 
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TABLE  3.1.  PROGRAM  AND  FILE  DECLARATIONS 


LAMINATE  GENERATOR 

| PROGRAM  LAMGEN  ( TAPE! .TAPE2, OUTPUT, TAPE6*0UTPUT  ) 

INITIAL  GENERATOR 

PROGRAM  BIROG1  ( TAPE1=512,INPUT,0UTPUT,TAPE5*INPUT,TAPE6*0UTPUT, 
TAPE?  *512,  TAPE8  =512,  TAPE9  *512,  TAPE10=512, 

TAPE11*512,  TAPE12*512,  TAPE13*512,  TAPE14-512, 

TAPE! 5*51 2,  TAPE16=512,  TAPE17*512,  TAPE18*512  ) 

LOADS  GENERATOR 

PR0GRAM  L0OGEN  ( TAPE1 ,TAPE2 ,TAPE3 .0UTPUT ,TAPE6*0UTPUT  ) 

FORMAT 

PR0GRAM  F0RMAT  ( TAPE1*512,TAPE2=512,TAPE3=512,TAPE4=512, 

1 INPUT*51 2 .TAPES* INPUT ,0UTPUT=51 2 ,TAPE6*0UTPUT ,TAPE7*51 2 , 

6 TAPE8=51 2 ,TAPE9=51 2 .TAPEl 0=51 2 ,TAPE1 4=51 2 ,TAPE1 5*51 2 .TAPE! 6=51 2 ) 

LINEAR  INCREMENTAL  SOLUTION 

PR0GRAM  RESPNS(TAPE1  =512,TAPE2  =512,TAPE3  =512,TAPE4  * 512 
1, INPUT  *512,TAPE5  =INPUT,0UTPUT=512,TAPE6=0UTPUT,TAPE7  =512 

2. TAPE8  =512,TAPE9  *51 2, TAPEl 0*51 2, TAPEl 1 *51 2, TAPEl 2=51 2 

3 . TAPEl 3=51 2 ,TAPE14=51 2 .TAPEl 5*51 2 .TAPEl 6=51 2 .TAPEl 7=51 2 ,TAPE18=51 2 

4 . TAPEl 9=51 2 ,TAPE20=51 2 .TAPE21 *51 2 ,TAPE22=51 2 ,TAPE23=51 2 

5. TAPE29=512  ) 

NONLINEAR  INCREMENTAL  SOLUTION 

PROGRAM  RESPNS(TAPE1  »512.TAPE2  “512.TAPE3  -512.TAPE4  *512 
1, INPUT  *512,TAPE5  =INPUT,0UTPUT=512,TAPE6=0UTPUT.TAPE7  *512 

2. TAPE8  =512,TAPE9  *51 2, TAPEl 0=51 2. TAPE11 =51 2, TAPEl 2=51 2 

3 . TAPEl 3*51 2 .TAPEl 4=51 2 .TAPEl 5=51 2 .TAPEl 6=51 2 .TAPEl 7=51 2 ,TAPE18=51 2 

4 . TAPE! 9=51 2 ,TAPE20=51 2 ,TAPE21=51 2 ,TAPE22*51 2 ,TAPE23=51 2 

5. TAPE30»512,TAPE31=512  ) 

POSTPROCESSOR 


PROGRAM  POST  ( TAPEl .TAPE2.TAPE3, 

INPUT , TAPE5= I NPUT .OUTPUT , TAPE6=0UTPUT  ) 
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TABLE  3.2.  SYSTEM  CONTROL  CARDS  FOR  COMPLETE  SOLUTION 


STEP 

SYSTEM  CONTROL  CARDS 

RC9,T07S,  IOl5o«CMia3000#8TC38,  D7?0B«S# MORRIS, 320«* 

LlMIT(7777) 

1 

U*»OATECN,F#C«TAPfn 

P£TUBM(  NgWPl.) 
pe**ind(  rAPEn 

2 

ATTACh(LGO#LAmGEUGO)  “ — 

MAP(ON) 

LCO. 

RETilP*(  TAOgl  ,lG01 

REwIN»P(TapC2J 

3 

UPCATE(N,F,CpCaSE) 

k.ETUPn(ne*pl.TAPF2) 

Pfc*IM3(eASE) 

4 

ATTACH(BSLCBO,0IPDG1SL> 

UPO*TC(N,F) 

PE^is/q  (COMPILE) 

5 

ATTACM(BLD0,BIRDS1L50) 

MAP (ON) 

SEGLOAO( IpCO-pILF^BpQaPS) 

LOSETCPPESETpzERO) 

LOAD(8LGO) 

NOGO. 

RETUP^CBSLCPO.COMPILE.BLGO.NEWPL) 

REWI^DCBABS) 

0AB8(TAPE2,CAsE) 

pETijpW(BarS) 

pEWIND(TAPE2,C*SE) 

6 

ATTACH(LGO,LOOGEslGO) 
map  (CJ'O 

LCO(CA3E,TX) 
pETU«m(CA3E, Tx.LGO) 

QEwINDf  TAPEJ) 

7 

AT7ACH(PM2,PMA3E2A,CVpn 

PH2, 

PEw I wo  C TAPE2.TAPP3. T*PE«) 

8 

»*2(,,TAPE«,TaPE*) 

REWIND ( T «PE2, TAP&3#  TApf 4} 

9 

PM2(,,,TAPE20(,,,#TAPE2i) 

PEWI*JO(TAPE20.TAPE21  ) 

10 

ATT4CM(LGO,Lr^EAPLGO) 

MAP (ON) 

PPL ( 1 unoon  ) 

LCO. 

RETUPn(LGO»TapE20.Tape21) 

PEWIm?(  TAPE2) 

11 

ATTACw(Lso,Pn3TLGO) 

MAP (QN) 

LCO. 

TABLE  3.3.  INPUT  DATA  FOR  COMPLETE  SOLUTION 


TABLE  3.3  INPUT  DATA  FOR  COMPLETE  SOLUTION  (Continued) 


INPUT  DATA 

12  1 

9 

11 

13 

19 

1 2 2 

9 

7 

9 

11 

12  3 

1 

1 

9 

7 

129999 

20  1 

13 

19 

100 

1.0 

20  2 

19 

It 

100 

1.0 

209999 
TO  1 

9 

11 

19 

13 

too 

.9 

TO  2 

to 

12 

19 

10 

100 

.9 

109999 

«0  1 

t 

1 

7 

9 

00  2 

9 

T 

11 

9 

009999 
90  1 

9 

.0 

e-2  ;« 

f! 

£•> 

90  2 

1 1 

£•2  ,o 

£-2 

£-2 

90  3 

11 

£-2  .0 

£•2 

£•2 

94  o 

909999 

19 

.0 

£-2  ,o 

£-2 

£-2 

•»e*o  »sici»o 


60,  LOGIC 

!**UT  T»P£  <"Ti*e,t) 

IMOut  T*P£  (LTiPf,  1 J 

output  T»»e  ncco"*«i) 
*iustbuct:on 

"T,0»T  ■ DP3T  .OCJCOL,  n) 

s*ve  (oecoHP)  opot 

• ppgr.-ei.  .seo-Pi 
PPtjPJ.PPUPS  ■ ppupt  , ocjc^l , ( a« I 
p»  P P9UPJ  ,HULT,  Pt 

par  p PR  ,tpiw|p, 

*,ltl,up  p »»up*<£l  .scaur;  p»t 

II T P P9UPT  .T^ULT,  ij* 

S»V£  TOCCOXP)  Mp.PHUPJ.LTl ,U» 
•PINT  UT 

t£Nf> 


JT4N04B 
l«UN  GH,  LOGIC 

INPUT  TiPt  (MT9P£, t ) 

INPUT  T*Pf  (OCCO**^,»J 
nuTPur  r»»e  (TP»N*r,n 
S INJTSL'C  T I ON 

v*L.T9  p ««  .USCR09,  LTL 

PRINT  (,,,1  V»L 
P?UPJ  p T»  ,T“ULT.  »»U*J 

PiJliP  P T9  ,T*ULf.  99'IP 

0P90  p *9u9J  .PULI.  HOOT 

S«v(  (TptNSP)  T9, P9UPJ, 99'iP, OP§0 
«00e»  P POuPJ  .TPULI,  T9 

••int  (,,r?,,09)  *nocs 
IJ'ICUL 

?i  m t,or»o 

UNO 
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TABLE  3.3.  INPUT  DATA  FOR  COMPLETE  SOLUTION  (Continued) 


SHI 

INPUT  DATA 

9 

JPOPHAT  STANOAPO 

8*UN  GO.  LOGIC 

r«*ur  rAPt  ("Tape.i) 

Input  t»pe 

output  T**t  (Piceio.n 

MljTPUT  TAPf  (Plltlt.l) 

TINJTPUCTION 

save  (pileboj  ppup 

SAVE  {PILE20)  *«9T 

SAVE  (PJLEJOI  UjEPO 

SAVE  (l  ILE20)  EcT/“EL.*BrL.C8EL,PPBAB 

SAVE  (PILE20)  SIGPB.EPStG.0E8T.evT, CONST 

save  rpttesti  opbo 

SAVE  (PILEll)  PBUPJ 

ieno 

TO 

i t to  ?5P  u Hooo 

10,0  20,0  J0*6  «o;o  50.0  60.0 

Trt.O  80,0  80.0  100.0 

11 

l il  

i til! 

3 ill 

« lilt 

3 lilt 

* nit 

7 CAPO  1.  PI»3T  TITLE  LINE 

8 capo  2.  P 1 8 S T title  LINE 

o capo  i.  seen»,o  title  line 

10  capo  2.  SECONO  title  LINE 

20  «PPP  1»  10 

JO  PPP9  1-  16 

cusslon.  The  following  files  are  assumed  to  be  permanently  stored  disc 
files  in  the  system. 


LAMGENLG0 

BIR0G1SL 

BIRDG1LG0 
L0DGENLG0 
PHASE2A,  CY-1 
LINEARLG0 
P0STLG0 


Laminate  Generator  relocatable  decks 

Initial  Generator  SEGL0AD  directives  preceded 
by  a *DECK  UPDATE  control  card  (card  images) 

Initial  Generator  relocatable  decks 

Load  Generator  relocatable  decks 

F0RMAT  Phase  II  absolute  file 

Linear  Incremental  Solution  relocatable  decks 

Postprocessor  relocatable  decks 


During  this  discussion.  Figure  2.1  should  be  referred  to  for  master 
input/output  files  of  each  program.  Also,  Table  3.1  should  be  referred 
to  for  the  sequence  of  appearance  of  file  names  in  the  PR0GRAM  declara- 
tions of  each  program.  It  is  assumed  that  the  reader  has  a working 
knowledge  of  the  CDC  system  and  its  control  cards. 

In  Table  3.2,  the  job  card  requests  140000  words  of  central  memory 
for  the  run  which  is  more  than  sufficient  to  load  and  execute  all  prog- 
rams. The  LIMIT  card  requests  more  than  the  system  default  disc  storage 
space  normally  allocated  to  a job. 

The  CDC  utility  UPDATE  is  executed  first  (Step  1)  receiving  input 
from  the  system  input  file  and  outputing  the  C0MPILE  file  under  the 
name  TAPE1.  In  Step  2,  the  Laminate  Generator  uses  all  default  file 
names  accepting  file  TAPE!  as  input  and  creating  file  TAPE2  as  output. 
TAPE1  is  the  partial  model  definition  data  and  TAPE2  is  the  augmented 
model  definition  data.  This  is  followed  by  another  execution  of  UPDATE 
(Step  3)  simulating  a final  editing  and/or  save  of  this  data  which,  rather 
than  being  output  under  the  default  file  name  C0MPILE,  is  renamed  CASE. 

Step  4 executes  UPDATE  again  to  create  a card  image  input  stream 
for  SEGL0D  which  is  output  under  the  default  name  C0MPILE. 
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Step  5 includes  both  the  loading  of  the  Initial  Generator  and  its 
execution.  Input  directives  to  SEGL0AD  is  the  card  image  C0MPILE  file 
from  Step  4.  Input  to  the  Initial  Generator  is  the  complete  model  defi- 
nition data,  card  image  file  CASE.  The  normal  output  file  TAPE!  is  over 
ridden  and  renamed  TAPE2. 

Next  the  Load  Generator  Is  executed  (Step  6).  The  normal  input  file 
TAPE!  is  renamed  CASE  in  order  to  accept  the  same  model  definition  data 
used  by  the  Initial  Generator.  The  output  is  on  TAPE3,  the  default  file 
name  for  the  binary  matrix  data  output  file.  However,  the  normal  card 
image  output  file  TAPE2  Is  renamed  to  the  dummy  name  TX  since  TAPE2  Is 
already  in  use  as  the  Initial  Generator  output  file. 

The  following  three  steps,  7,  8,  and  9,  execute  the  F0RMAT  Phase  II 
program  to  assemble  the  input  files  necessary  for  the  Linear  Incremental 
Solution  which  follows.  In  the  first  execution,  all  default  file  names 
are  used.  Input  is  on  file  TAPE2  from  Step  5 and  TAPE3  from  Step  6. 
Output  is  on  TAPE4,  In  the  second  execution  (Step  8),  Input  consists 
of  file  TAPE2,  the  same  file  input  to  Step  7,  and  TAPE4  output  from  Step 
7.  In  this  step,  therefore,  the  normal  input  file  name  TAPE3  is  over 
ridden  and  renamed  TAPE4,  and  the  normal  output  file  name  TAPE4  Is  over 
ridden  and  renamed  TAPE3.  This  sets  up  the  stage  for  the  final  execution 
(Step  9)  In  which  the  input  Is,  again,  file  TAPE2  from  Step  5,  and  file 
TAPE3  output  from  Step  8.  The  normal  output  file  names,  TAPE4  and  TAPE7, 
are  renamed  TAPE20  and  TAPE21  for  compatibility  with  the  following  step. 

The  Linear  Incremental  Solution  is  then  executed  (Step  10)  using  all 
default  file  names.  Output  Is  on  TAPE2.  In  this  step,  blank  common  Is 
extended  to  accommodate  the  size  of  the  problem.  On  the  first  input  card 
for  this  step  (Table  3.3,  Step  10),  the  available  blank  common  is  speci- 
fied to  the  program  in  decimal  as  15000  (last  value  on  card).  This  Is 
7000  words  (decimal)  greater  than  the  size  of  blank  common  in  the  comp- 
iled code.  Therefore,  in  order  to  make  additional  core  available  for 
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execution,  an  RFL  command  is  placed  before  the  load  and  go  command, 

LG0.  This  effectively  over  rides  the  field  length  the  loader  normally 
establishes  from  the  relocatable  file  it  accesses  for  the  load.  The 
requested  field  length  on  the  RFL  card,  140000  words  (octal),  is  suffi- 
cient to  compensate  for  the  7000  words  (decimal)  added  to  blank  common. 
(See  minimum  core  requirements  and  dimensioned  blank  common  block  sizes 
discussed  at  the  beginning  of  this  section). 

The  last  step,  execution  of  the  Postprocessor  (Step  11)  is  then  per- 
formed using  all  default  file  names,  in  which  case,  TAPE2  is  the  input 
file. 

This  example  would  be  identical  if  the  Nonlinear  Incremental  Solu- 
tion had  been  used  rather  than  the  linear  with  the  following  exception. 
The  default  output  file  for  the  non-linear  Is  TAPE23.  The  last  control 
card,  the  command  executing  the  Postprocessor,  would,  therefore,  have 
to  over  ride  the  default  input  file  name  of  TAPE2  to  TAPE23  and  would 
appear  as 

LG0  (,  TAPE23) 
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SECTION  IV 
LAMINATE  GENERATOR 


OVERVIEW 

This  program  accepts  user  prepared  tabular  data  describing  the  model, 
including  the  laminated  section  and  generates  additional  tabular  data 
which  is  merged  into  the  input.  The  generated  data  consists  of  joint 
coordinates  and  cell  definition  data  representing  interior  joints  and 
elements  below  the  exterior  surface  of  the  laminate.  In  addition,  surface 
normal  vectors  are  generated  at  each  joint  on  the  exterior  surface  of  the 
laminate.  The  magnitude  of  these  vectors  corresponds  to  a unit  pressure 
on  the  surface  area  associated  with  each  joint.  The  format  of  the  tabular 
card  input  prepared  by  the  user  as  well  as  that  of  the  tabular  output  is 
described  in  Part  2 of  this  report.  Detailed  descriptions  of  each  routine 
in  this  program  are  given  in  Appendix  A of  this  document. 

The  core  required  by  this  program  without  the  use  of  overlay  or 
segmentation  is  130000  octal  words.  The  program  uses  three  external 
files.  One  is  used  for  card  input,  one  for  printed  output,  and,  option- 
ally, one  for  card  image  output.  Organization  of  all  routines  for  the 
program  is  shown  below. 

LAMGEN 

I0XS 

UVEC 

RLAYER  RIDCEL  RJ0INT  CELGEN  RTVARI  JTGEN  WJ0INT  WN0RM  WCELL 

CR0SSQ  D0T 

ABSVAL 

No  labeled  or  blank  common  regions  are  used  by  the  program.  Arrays 
A and  N are  dimensioned  in  the  main  program  which  allocates  space 
within  these  arrays  for  use  by  each  of  the  routines  it  calls. 
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Routine  I0XS  Is  used  to  read  data  not  required  by  the  program  and 
write  it  on  the  output  file(s).  Routine  UVEC  is  used  to  unitize  vectors. 
Routines  RLAYER,  RIDCEL,  and  RJ0INT  read  the  layer,  ceil,  and  joint 
data,  respectively. 

Routine  CELGEN  generates  the  cell  definition  data  for  the  cells  in 
the  laminate  and  the  surface  normal  vectors.  Routine  CR0SSQ  finds  the 
cross  product  of  two  vectors,  and  routine  ABSVAL  determines  the  magni- 
tude of  a vector.  Routine  RTVARI  reads  the  variable  thickness  data  and 
stores  the  thickness  of  each  layer  under  each  laminate  surface  joint. 
Routine  JTGEN  generates  the  coordinates  of  each  joint  in  the  laminates. 
Routine  D0T  is  a function  that  forms  the  dot  product  of  two  vectors. 

Routines  WJ0INT,  WN0RM,  and  WCELL  write  the  joint,  surface  normal, 
and  cell  data  on  the  output  file(s). 

FILE  UTILIZATION 

Required  input  to  the  program  are  the  tables  of  joint  coordinates, 
laminate  definitions,  and  cell  definitions  which  are  Data  Codes  2,  7 
and  40,  respectively.  The  table  of  variable  laminate  thickness.  Data 
Code  8,  which  is  used  only  when  the  laminate  thickness  Is  not  constant, 
is  optional . 

Using  this  data,  the  surface  normals  are  computed  to  form  a new 
table.  Data  Code  6.  Interior  joint  geometry  and  numbering  are  then 
determined  and  merged  Into  the  original  joint  coordinate  table.  Data 
Code  2.  Definitions  of  Interior  cell  elements  are  then  determined  and 
merged  into  the  original  cell  definition  table.  Data  Code  40. 

The  output  consists  of  the  augmented  joint  coordinate  and  cell  def- 
inition tables.  Data  Codes  2 and  40,  the  surface  normal  table.  Data 
Code  6,  and  copies  of  all  other  tables  present  in  the  original  input 
with  the  exception  of  the  laminate  definition  and  thickness  tables, 
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Data  Codes  7 and  8,  which  are  omitted. 


There  is  one  card  input  file  referenced  by  the  integer  variable 
ITAPE.  The  primary  output  file  is  referenced  by  the  Integer  variable 
JTAPE.  These  two  variables,  ITAPE  and  JTAPE,  are  Initialized  In  the 
main  program  as  files  1 and  2. 

The  code  provides  for  the  following  option.  If  JTAPE  3 6,  only 
the  printed  output  Is  written  to  file  6.  If  JTAPE  t 6,  the  card  image 
output  is  written  to  file  JTAPE  and  the  printed  output  is  written  to 
file  6. 

LIMITATIONS 

The  program  uses  two  singularly  subscripted  arrays,  A and  N,  which 
are  dimensioned  in  the  main  program  as  25000  and  2000,  respectively. 

The  sizes  of  these  arrays  are  stored  in  integer  variables  MSIZEA  and 
MSIZEN  which  are  initialized  in  the  main  program.  The  dimensions  of 
arrays  A and  N and  their  respective  sizes  stored  in  MSIZEA  and  MSIZEN 
can  be  changed  to  accommodate  smaller  or  larger  models.  The  formulae 
for  determining  the  space  requirements  for  these  arrays  are: 

MSIZEA  2 10*NCELLS  + 7*NJ0INT  + NJT*NL 
MSIZEN  2 4*(ML-1)  + NQUAD  + NJT 

where  NCELLS  is  the  total  number  of  cell  elements  in  the  complete  model, 
NJ0INT  is  the  number  of  joints  in  the  complete  model,  NJT  is  the  number 
of  joints  on  the  exterior  laminate  surface,  NL  is  the  number  of  layers 
In  the  laminate,  and  NQUAD  is  the  number  of  cell  elements  on  the  exterior 
surface  of  the  laminate. 


Although  the  format  of  the  input  data  provides  for  multiple  laminate 
definitions,  the  code  is  limited  to  only  one  laminate  definition. 


SECTION  V 
INITIAL  GENERATOR 


OVERVIEW 

This  program  accepts  tabular  Input  data  describing  the  structural 
model  in  terms  of  geometry,  elements,  constraints  and  material  and 
physical  properties.  From  this  description,  matrix  data  is  generated 
as  demanded  by  the  subsequent  solution  process.  The  mathematical  formu- 
lation of  the  output  matrix  data  is  given  in  Appendix  H of  Part  1 of 
this  report.  The  card  input  prepared  by  the  user  describing  the  struc- 
ture model  is  described  in  Part  2.  Detailed  descriptions  of  each 
labeled  common  block  and  routine  in  this  program  are  presented  in 
Appendix  B of  this  document. 

The  program  implementation  includes  extensive  use  of  the  CDC  segmen- 
tation capability  to  overlay  both  labeled  common  regions  and  code.  The 
core  required  for  program  execution  using  this  feature  is  130,000  octal 
words.  In  addition  to  the  system  input/output  files,  5 and  6,  the 
program  uses  thirteen  external  files  of  which  twelve  are  intermediate 
data  storage  and  one  for  the  master  output.  No  blank  common  is  used. 

The  data  assembled  and  output  on  the  master  file  is  compatible  for 
use  in  either  a linear  or  nonlinear  incremental  solution.  This  compatibility 
inherently  results  in  some  additional  overhead  since  the  requirements  of 
each  type  of  incremental  solution  are  different.  For  example,  the 
generation  of  matrices  ECT  and  EVT  and  the  computation  of  the  Ramberg- 
| Osgood  coefficient  in  runs  preparing  data  for  a linear  solution  is  not 

required.  Conversely,  the  generation  of  matrix  Op  for  a nonlinear  solu- 
\ tlon  is  unnecessary.  However,  for  the  sake  of  consistency  and  user  con- 

venience, this  approach  was  adopted. 

| Special  Input  for  Checkout 


There  are  some  special  input  parameters  pertaining  to  program  check- 
out runs  which  are  not  discussed  in  the  User's  Manual,  Part  2 of  this 


report.  These  parameters  are  input  under  Data  Code  1 . On  card  1 in 
columns  3 to  6 an  integer  master  tape  dump  flag,  MTDF,  may  be  entered 
which  controls  the  printing  of  output  matrix  data  according  to: 

MTDF  * 0 no  dump 

MTDF  * 1 dump  header/trailer 

MTDF  « 2 full  dump 

Also,  on  card  1 in  columns  7 to  10  an  integer  joint  number  can  be 
entered  which  will  trigger  the  printing  of  all  Intermediate  calculations 
for  all  elements  connected  to  the  joint  specified.  Finally,  on. card  1 
in  columns  11  to  14  an  integer  print  flag  can  be  input,  which,  if  non 
zero,  triggers  the  printing  of  all  intermediate  calculations  in  the 
assembly  of  matrices  PRUPT  and  PRUF. 

On  card  2 of  Data  Code  1,  in  columns  3 to  6,  an  integer  can  be  entered 
which  is  used  as  the  maximum  number  of  lines  per  page  for  printing.  If 
not  input,  the  number  defaults  to  45.  Also,  in  columns  19  to  33  and 
34  to  48,  two  coefficients  are  input  as  noted  in  the  User's  Manual. 

The  first  coefficient  is  used  in  defining  the  stiffness,  or  more  approp- 
riately, the  lack  of  stiffness  in  bar  elements  with  gaps  in  connectlvety 
specified.  The  second  coefficient  is  used  to  suppress  insignificant 
values  from  the  stiffness  matrix  of  each  element  in  the  structural  model. 
This  was  done  to  reduce  matrix  density  and  thus  promote  storage  in 
compressed  form  and  reduce  execution  time  in  mathematical  operations. 

The  values  specified  for  these  two  coefficients  in  the  User's  Manual 
were  derived  empirically. 

Organization 

Figure  5.1  shows  the  functional  organization  of  the  program  In  terms 
of  all  labeled  common  blocks  and  the  principle  routines  called  by  the 
main  program.  Vertical  positioning  In  the  figure  depicts  the  basic  over- 
lay structure  used.  Labeled  common  blocks  are  in  parentheses. 
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BIRDG1 

(ABC) 

(MTRL) 


— 


Functionally,  the  program  can  be  broken  down  into  three  major  steps; 
the  processing  of  joint,  vector  and  material  property  data,  the  processing 
of  element  data,  and  the  reordering  of  degrees  of  freedom  prior  to  final 
output  of  matrix  data. 

Operation 

Processing  begins  with  the  reading  of  run  parameters  and  constants 
under  Oata  Code  1 by  the  main  program,  BIRD61.  The  first  branch  of  the 
tree  on  the  left  in  Figure  5.1  is  then  executed.  Each  routine  is 
invoked  in  sequence  in  the  order  shown  (top  to  bottom).  In  this  first 
major  processing  step.  Data  Codes  2 through  5 and  10  are  read.  These 
are  tables  of  joint  coordinates,  temperatures,  direction  cosines,  con- 
straints, and  material  properties.  Matrix  Ug,  the  original  joint 
coordinates,  and  matrix  MPT,  the  material  property  data,  are  output  to 
the  master  output  tape.  The  contents  of  matrix  MPT,  a single  column 
matrix,  is  shown  below. 


Partitions 

MPT 

Record 

Type 

Description 

(a) 

1 

• 

Real 

Table  of  coefficients  for  each 
property  of  each  material 

(b) 

• 

NCF 

1 

« 

• 

BCD 

Table  of  descriptive  text  for  each 
material . 

(c) 

NO 

1 

• 

• 

Integer 

For  each  material,  the  number  of 
coefficients  for  all  properties  and 
the  number  of  words  of  descriptive 
text 

(d) 

MT 

1 

• 

Integer 

Pointers  Into  partitions  (a)  and  (b) 
above  for  each  material 

• 

MT 

where  the 

total  1 

ength  of  the  column  is  NCF  + ND  + 2MT. 
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Processing  of  element  data,  the  second  major  step,  is  accomplished  by 
middle  branch  of  tree  shown  in  Figure  5.1.  A loop  is  set  up  in  the  main 
program  to  process  all  element  data.  The  loop  begins  with  a call  to 
routine  ELEMNT.  This  routine  reads  element  definition  data.  Data  Codes 
20,  30,  40  and  50,  one  element  at  a time,  and  returns  flags  to  the  main 
program  which  control  subsequent  processing.  One  flag  signals  the  end  of 
data  for  the  Data  Code  currently  being  processed  which  dictates  either  going 
on  to  next  table,  or.  If  all  tables  have  been  processed,  exiting  the  loop. 

If  a return  from  routine  ELEMNT  indicates  the  presence  of  data  for  a 
particular  type  element,  routines  EDGES  and  ACCPRP  are  called  in  turn  to 
assemble  an  array  of  joint  number  pairs  for  each  element  edge  force  and 
to  establish  the  material  properties  for  the  element,  respectively.  One 
of  the  three  sub-branches  is  then  executed  according  to  the  element  type; 
lumped  parameter  bar  (LPB),  lumped  parameter  membrane  (tPM),  or  lumped 
parameter  cell  (LPC).  Ho  output  data  is  written  to  the  master  output 
file  in  this  step.  Output  consists  of  intermediate  data  stored  on 
scratch  files. 

The  last  major  processing  step  is  accomplished  by  the  two  remaining 
branches  on  the  right  in  Figure  5.1.  These  routines  are  executed  once  in 
the  order  EDGD0F,  PASSM,  WTAPE1 , DUMPMT,  and  PRTC0N.  Routine  EDGD0F 
assembles  an  array  of  sorted  unique  joint  pairs  for  each  edge  in  the  model 
from  data  previously  assembled  by  routine  EDGES.  Using  this  and  other 
data  regarding  constraints,  routine  PASSM  then  assembles  and  outputs 
matrices  PRUPT  and  PRUF  in  the  reordered  row  format.  Finally,  the  three 
routines  of  the  last  branch  are  executed  to  write  all  remaining  master 
output  data,  dump  the  master  output  tape  (optional),  and  print  the  data 
from  matrix  C0NST,  respectively.  C0NST  contains  all  model  constants, 
sizing  data,  and  other  run  parameters  (Appendix  B,  Labeled  Common  C0NST). 

Two  special  or  psuedo  matrices  are  formed  and  output  which  are  not 
part  of  the  theoretical  development  given  in  Part  1.  These  matrices  are 
ECT,  the  element  constant  table,  and  EVT,  the  element  variable  table. 


37 


Each  element  contributes  a column  to  ECT  and  EVT.  The  data  for  a column 
of  ECT  and  EVT  for  each  type  element  Is  given  in  Tables  5.1  and  5.2, 
respectively.  These  two  matrices  are  used  during  each  time  increment 
of  the  nonlinear  response  solution.  Matrix  ECT  Is  read  only  while 
matrix  EVT,  containing  material  property  and  stress/strain  state  data 
of  each  element.  Is  read  and  rewritten  during  each  Increment. 

Reordering  of  Degrees  of  Freedom 

The  reordering  of  degrees  of  freedom  which  takes  place  in  the  final 
processing  step  is  done  to  reduce  the  wavefront  of  the  structural  stiff- 
ness matrix  subsequently  decomposed  by  the  SEQWF  module  of  FORMAT 
(Reference  10).  The  three-row  formats  (sequence)  of  degrees  of  freedom 
referred  to  in  this  report  are  the  total  degrees  of  freedom,  T,  the 
unconstrained  degrees  of  freedom,  U,  and  the  reordered  unconstrained 
degrees  of  freedom,  RU.  The  latter  being  the  desired  order  for  SEQWF 
and,  consequently,  the  row  order  of  the  Initial  Generator  output  matrices 
PRUPT  and  PRUF. 

The  T degrees  of  freedom  consist  of  global  X,Y,Z  translation  at  each 
joint  followed  by  all  edge  degrees  of  freedom  as  shown  below. 

T 

Degrees  of  Freedom 


All  joint  degrees 
of  freedom 


TABLE  5.1  CONTENTS  OF  MATRIX  ECT 


LOCATION 

TYPE 

DESCRIPTION 

Bar 

Mem 

Cell 

1 

1 

1 

1 

integer 

element  number 

2-3 

2-5 

2-9 

integer 

joint  connectivity  (p,  q,  r . . . etc.) 

4 

6 

10 

integer 

material  property  number 

5 

- 

- 

real 

bar  area 

6 

- 

-- 

real 

bar  tension  gap 

7 

- 

- 

real 

bar  compression  gap 

- 

7 

real 

membrane  thickness 

- 

8 

11 

real 

stress  orientation  angle 

8 

9 

12 

real 

mass 

9 

10-13 

13-24 

integer 

T dof  of  edge  forces 

10-11 

14-22 

25-54 

real 

unit  thermal  deformation  coefficients 

f 


3*NJ 


1 


» 


> E?  All  edge 

) c degrees  of  freedom 


NE 


where  NJ  is  the  number  of  joints,  NE  is  the  number  of  edges,  J are 

nT 

the  X,Y,Z  global  translation  at  joint  n,  and  Efl  are  all  edges  connected 
to  joint  n.  The  edges  in  En  are  identified  by  joint  pairs  in  ascending 
order  where  the  second  joint  Is  always  greater  than  the  first  and  the 
positive  direction  is  taken  to  be  from  the  first  to  the  second  joint. 
For  example. 


Edge 

Degrees  of  Freedom 


First  Second 

Joint  Joint 


1 


6 


1 

1 


18 

56 


E 


1 


2 

2 


3 

17 





etc. 


The  U degrees  of  freedom  are  in  the  same  order  as  the  T degrees  of 
freedom,  but  with  joint  constrained  degrees  of  freedom  omitted.  Edge 
degrees  of  freedom  cannot  be  constrained. 

U 

Degrees  of  Freedom 


!J«  Unconstrained  joint 

v degrees  of  freedom 


3*NJ-NC 

1 


All  edge 

degrees  of  freedom 


NE 


I 
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where  NC  Is  the  number  of  constraints,  and  J are  the  unconstrained 

nU 

global  translation  at  joint  n. 

The  RU  degrees  of  freedom  consist  of  the  U degrees  of  freedom  with 
the  edge  degrees  of  freedom  for  a joint  immediately  following  the  uncon- 
strained joint  degrees  of  freedom,  as  shown  below. 

RU 

Degrees  of  Freedom 


3*NJ+NE-NC 


OVERLAY 

Loading  of  the  Initial  Generator  program  should  include  the  use  of 
the  CDC  segmentation  capability.  The  basic  overlay  structure  is  shown 
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in  Figure  5.1.  Note  that  the  labeled  common  regions  are  overlayed  as 
well  as  code.  The  SEGLOAO  directives  to  accomplish  this  overlay  structure 
are  given  below.  Beginning  card  columns  are  noted  above  each  of  the 
three  fields. 


1 

8 

17 

TREE 

BIR0G1-ON,  ELEM,  ASSM,  0UT) 

ELEM 

TREE 

EA-(BAR, MEM, CELL) 

GLOBAL 

CONST, IEDGE.IERR0R, ISEQ, ED0F.LPEP ,MTRL 

GLOBAL 

C0N.RM.Q8.I0. ,FCL.C. ,I0.BUP. 

EO0F 

EQUAL 

JORT 

ISEQ 

EQUAL 

WRK 

I EDGE 

EQUAL 

LPBEM,LPMEM,LPCEM 

IN 

INCLUDE 

CNSTRN , JTEMP , JTPRT , JZER0 .MTLM0D .SKDATA .TAPEHD 

IN 

GLOBAL 

C0FCLC, LIMITS 

EA 

INCLUDE 

ACCPRP, EDGES, ELEMNT 

BAR 

INCLUDE 

LPBAR.LPBPRT.LPBSM 

MEM 

INCLUDE 

LPMAP , LPMC , LPMPRM , PMP  RT , LPMSM 

MEM 

GLOBAL 

LPMDSZ.LPMV 

CELL 

TREE 

LPCAP-LPCC-LPCSM-(LPCPRM,LPCPRT,LPCFBB,LPCG,LPCK) 

LPCAP 

GLOBAL 

LPCV 

ASSM 

INCLUDE 

PASSM.EDGD0F 

OUT 

INCLUDE 

DUMPMT .PRTC0N ,TAPETR,WTAPE1 

END 

BIRDGl 

FILE  UTILIZATION 

All  tabular  card  input  data  is  read  from  system  input  file  5 and  all 
printed  output  is  written  to  system  output  file  6.  In  addition,  thirteen 
external  files  are  used.  Units  7 through  18  are  used  as  scratch  files 
and  unit  1 is  used  for  master  matrix  data  binary  output. 

Figures  5.2,  5.3  and  5.4  show  the  use  of  these  files  during  the  three 
major  processing  steps  of  the  Initial  Generator  program.  The  content  of 
each  of  these  files  is  summarized  in  the  following. 


user 

Input 


master  output  file 

Figure  5.2.  Initial  Generator  Joint,  Constraint,  and  Material  Property  Processing  Files 


user  main 

input  program 
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Figure  5.3.  Initial  Generator  Element  Processing  Files 
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Figure  5.4.  Initial  Generator  Output  Assembly  Files 


File  Content 

1 Master  output  matrix  data 

7 Intermediate  material  property  and  other  potentially 
variable  data  for  each  element  (EVT) 

8 Intermediate  unassembled  damping  matrix  for  each 
element  (c) 

9 Intermediate  deformations  due  to  initial  thermal 
gradients  for  each  element  ( 6e-j.) 

10  Intermediate  unassembled  lumped  mass  matrix  for  each 
element  (m) 

11  Intermediate  unassembled  strain  transformation  for 

each  element  (e  ) 
o 

12  Intermediate  unassembled  force  transformation 

for  each  element  (F^-) 

13  Intermediate  unassembled  stiffness  matrix  for  each 
element  (F) 

14  Intermediate  unassembled  lumped  stiffness  matrix 
for  each  element  ( k) 

15  Intermediate  unassembled  stress  transformation  for 

each  element  (o^) 

16  • Intermediate  constraint  data  for  each  constraint 

17  Intermediate  edge  data  for  each  element 

18  Intermediate  thermal  deformation  transform  for  each 
element  (e^) 


The  output  of  matrices  of  element  data  as  well  as  the  processing  of 
such  data  is  in  the  order  bars,  membranes,  cells,  and  point  mass  elements. 
The  size  of  some  of  the  matrices  and  arrays  for  individual  contributions 
from  the  three  types  of  elements  is  given  below. 


Matrix 


or 


Array 

Size 

k,  c 

NK  x NK 

k,  c,  m 

NF  x NF 

NF  x NK 

NS  x NK 

(symmetric) 

(synmetric) 
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e 

o 

NS 

X 

NS 

(symmetric) 

■fT* 

NK 

X 

1 

ECT 

NB 

X 

1 

EYT 

NV 

X 

1 

where 

bar 

membrane 

cell 

NF  - 

7 

16 

36 

NK  » 

2 

9 

30 

NS  * 

1 

3 

12 

N3  » 

11 

22 

54 

NV  * 

14 

15 

24 

Only  the  mass  matrix,  m,  and  the  element  constant  table,  ECT,  apply 
to  point  mass  elements.  In  this  case,  NF  = 3 and  NB  a 5. 

The  master  output  file  is  written  in  a format  consistent  with  FORMAT 
master  input/output  matrix  tapes.  The  FORMAT  tape  name  and  modifier  in 
the  header  record  is  MTAPE,  1.  The  order  and  discription  of  the  matrices 
output  for  the  structural  model  defined  by  the  tabular  input  data  is  given 
below. 


Matrix 

or 

Array 

FORMAT 
Matrix  Name 
and  Modifier 

Row  and 
Column 
Dimensions 

Description 

Uo 

UZER0,  1 

NJ  x 3 

joint  coordinates 

MPT 

MPT,  1 

NM  x 1 

material  properties 

ECT 

ECT,  1 

100  x NEM 

element  constants 

PRUPT 

PRUPT,  1 

NU  x NT 

T dof  reordering 

PRUF 

•PRUF,  1 

NU  x NPF 

element  force  reordering 

k 

KEL,  1 

NPF  x NPF 

lumped  element  stiffness 

m 

MEL,  1 

NPF  x NPF 

lumped  element  mass 

k 

KBEL,  1 

NF8  x NFB 

element  stiffness 

c 

C8EL,  1 

NFB  x NFB 

element  damping 

ff 

FFBAR,  1 

NFF  x NFB 

element  force  transform 

aF 

SIGF8,  1 

NSS  x NFB 

element  stress  transform 

co 

EPSIG , 1 

NSS  x NSS 

element  strain  transform 

6*t 

DEBT,  1 

30  x NEM 

element  thermal  deformation 

EVT 

EVT,  1 

24  x NEM 

element  variables 

C0NST 

C0NST,  1 

30  x 1 

problem  constants 

where 

NJ 

is  the  number  of  joints 

NM 

is  the  length  of  the  material  property  array 

NEM 

is  the  number 

of  elements 

NU 

is  the  number  of  unconstrained  degrees  of  freedom 

NT 

is  the  total 

number  of  degrees  of  freedom 

NPF 

is  the  number  of  lumped  element  forces  including 
point  mass  element 

NFB 

is  the  number  of  lumped  element  forces 

NFF 

Is  the  number  of  internal  element  forces 

NSS  ' 

is  the  number  of  stresses/strains 

and  NPF  Is  the  only  dimension  which  includes  point  mass  elements.  Matrices 
MPT,  ECT,  5§y,  EVT  and  C0NST  are  mixed  integer/floating  point  arrays 
which  are  not  ‘.sable  directly  by  FORMAT. 

CORE  UTILIZATION 

All  Internal  core  storage  is  by  means  of  labeled  comnon  blocks.  No 
blank  common  is  used.  Oetailed  descriptions  of  each  labeled  common 
block  Is  given  In  Appendix  B.  Table  5.3  lists  each  of  these  labeled 
conwon  blocks  and  all  routines  in  the  program  which  reference  them. 


TABLE  5.3  INITIAL  GENERATOR  LABELED  COMMON  REFERENCES 


LPCAP , LPCEBT,  LPCK,  LPCKC,  LPCRM,  LPCSM,  LPCZM 


TABLE  5.3.  INITIAL  GENERATOR  LABELED  COMMON  REFERENCES  (Continued) 


PARTN,  QKS0RT , STACK,  SWAP 


LIMITATIONS 


Currently  problem  size  limitations  of  the  program  are  as  follows: 


Maximum 

Type  Data 

1200 

joints 

50 

direction  cosines 

600 

constraints 

300 

oblique  constraints 

20 

materials 

10 

coefficients  or  values/material  property 

660 

coefficients  for  all  properties  of  all 
materials 

240 

words  of  descriptive  text  for  all 
materials  (10  characters/word) 

7200 

edge  element  forces 

7200 

T degrees  of  freedom 

3600 

edge  degrees  of  freedom 

Limitations  with  respect  to  material  properties  can  be  modified  by 
changing  dimensions  of  arrays  in  labeled  common  block  MTRL.  At  the 
same  time,  the  data  statement  in  routine  MTLM0D  initializing  the  values 
in  labeled  common  block  LIMITS  must  be  changed  to  be  consistent  with 
the  array  sizes  of  labeled  conmon  block  MTRL. 

All  other  limitations  are  basically  functions  of  the  size  of  labeled 
conmon  blocks  ED0F,  IEDGE,  and  ISEQ.  These  common  regions  are  used  as 
a group  In  the  reordering  of  degrees  by  routines  EDGD0F  and  PASSM  and 
must  be  of  equal  size.  This  size  is  the  limit  for  number  of  T degrees 
of  freedom  and  edge  element  forces.  Half  this  dimension  Is  the  limit 
for  edge  degrees  of  freedom.  The  current  dimensioned  size  of  each  of 
these  three  common  regions  is  7200  which  is  reflected  in  the  list  of 
limitations  above. 
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Labeled  common  JORT  is  used  to  store  joint  coordinate  and  temperature 
tables  and  is  overlayed  with  labeled  common  ED0F.  JORT  requires  four  equal 
size  partitions  whose  length  is  the  limit  for  number  of  joints.  The 
current  Implementation  with  common  region  ED0F  of  size  7200  is,  therefore, 
sufficient  for  1800  joints.  Present  dimensions  in  common  region  JORT, 
however,  are  sized  for  a limit  of  1200  joints. 

Limitations  on  direction  cosines  and  constraints  are  a function  of 
array  sizes  in  labeled  common  block  WRK  as  defined  in  routine  C0NSTN. 

This  common  region  is  overlayed  with  labeled  common  block  ISEQ.  The 
declaration  for  common  region  WRK  in  routine  C0NSTN  is  the  largest  in 
the  program  and  uses  only  3453  locations  of  the  7200  abailable.  By 
increasing  the  array  sizes  of  labeled  common  WRK  as  defined  in  routine 
C0NSTN  but  not  exceeding  the  size  of  labeled  common  ISEQ,  these  limitations 
could  be  eased  without  any  overall  penalty. 

Even  though  some  of  the  current  limitations  could,  and  probably 
should,  be  eased  without  increasing  overall  core  requirements  for  the 
program,  the  array  sizes  as  presently  defined,  have  been  sufficient 
for  processing  the  largest  possible  problems  under  the  T degrees  of 
freedom  limitation. 
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SECTION  VI 
LOAOS  GENERATOR 


OVERVIEW 

This  program  accepts  user  prepared  tabular  input  data  describing  the 
model  Including  the  impact  loading  and  generates  a matrix  of  Incremental 
point  loads.  The  card  input  prepared  by  the  user  is  described  In  Part  2 
of  this  report.  The  mathematical  formulation  is  given  in  Appendix  H of 
Part  1.  Detailed  descriptions  of  each  routine  In  this  program  are  given 
in  Appendix  C of  this  document. 

The  core  required  for  this  program  without  the  use  of  overlay  or 
segmentation  is  71000  octal  words.  The  program  uses  three  external 
files  in  addition  to  system  print  file  6.  One  file  Is  used  for  card 
input,  one  for  card  image  output,  and  one  for  binary  matrix  data  output. 
Organization  of  all  routines  for  the  program  is  shown  below. 

L0OGEN 

< CR0SS 

' UVEC 

D0T 

READC0  READCN  READB  READO  GENAB  MATMUL  DELTA  0UTPUT 

INVERT  SQUEEZ 

No  labeled  or  blank  common  regions  are  used  by  the  program.  Array 
A is  dimensioned  in  the  main  program  which  allocates  space  within  the 
array  for  use  by  each  of  the  routines  It  calls. 

Routines  CR0SS,  UVEC,  and  D0T  perform  the  vector  operations  of  cross 
product,  unitize,  and  dot  product,  respectively.  Routines  READC0  and 
READCN  read  the  joint  coordinate  and  Impact  constant  data,  respectively. 

Routines  READB , READJ , GENAB,  MATMUL,  DELTA,  and  0UTPUT  are  called 
for  each  load  Increment.  READB  reads  the  footprint  travel  and  the  load 
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factor.  READJ  reads  the  numbers  of  joints  that  receive  load.  GENAB 
generates  the  A and  B matrices  used  by  MATMUL  in  performing  the  matrix 
multiplication  A^(AA^)~^BF  which  results  in  an  array  of  joint  loads. 
INVERT  inverts  the  3x3  matrix  AA^.  DELTA  finds  the  change  In  joint 
loads  from  the  previous  to  the  current  load  increment. 

0UTPUT  writes  the  change  In  joint  loads  on  the  output  file(s) 
using  SQUEEZ  to  compress  the  data  written  on  the  FORMAT  tape. 

FILE  UTILIZATION 

Required  input  to  the  program  are  the  table  of  joint  coordinates, 
Data  Code  2,  and  the  tables  of  impact  definition  data  and  impact  foot- 
print joint  data,  Data  Codes  11  and  12.  This  data  provides:  1)  over 
all  model  geometry,  2)  bird  length,  mass  and  velocity,  and  3)  the 
incremental  load  In  terms  of  magnitude,  direction  and  loaded  joints. 

Printed  output  for  each  increment  consists  of  increment  number, 
bird  mass  and  velocity,  duration  of  impact,  average  impact  force, 
load  direction,  total  load,  and  incremental  joint  loads.  The  load 
matrix  generated  represents  Incremental  joint  loads  in  the  global 
X,  Y,  and  Z directions.  The  row  format  corresponds  to  joint  T degrees 
of  freedom  and  columns  correspond  to  the  increments. 

The  output  card  image  file  is  formatted  for  use  as  a F0RMAT  Phase 
II  card  input  matrix  with  the  name  DP0T.  The  binary  output  file  is 
formatted  for  use  as  a F0RMAT  Phase  II  master  input  matrix  tape  with 
the  tape  name  LTAPE.l  and  a matrix  name  of  DP0T. 

There  is  one  card  Input  file  referenced  by  the  integer  variable 
ITAPE.  The  card  image  matrix  output  file  Is  referenced  by  the  integer 
variable  JTAPE.  The  binary  matrix  data  output  file  is  referenced  by 
the  integer  variable  KTAPE.  These  three  variables,  ITAPE,  JTAPE  and 
KTAPE  are  Initialized  In  the  main  program  as  files  1,  2 and  3,  respect 
tively.  All  printed  output  is  written  to  file  6. 
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LIMITATIONS 

The  program  uses  the  singularly  subscripted  array  A which  is 
dimensioned  in  the  main  program  as  10000.  The  size  of  this  array  Is 
stored  In  the  Integer  variable  NSIZEA  which  is  initialized  In  the 
main  program.  The  dimension  of  array  A and  its  size  stored  in  NSIZEA 
can  be  changed  to  accomnodate  smaller  or  larger  models.  The  formula 
for  determining  the  space  requirement  for  array  A Is: 

NSIZEA  i 3*NJT0T  + 9*NJTN  + ND0F 

where  NJT0T  Is  the  number  of  joints  under  Data  Code  2,  NJTN  is  the 
largest  number  of  joints  in  any  Increment  under  Data  Code  12,  and  ND0F 
is  the  number  of  joint  T degrees  of  freedom  from  Data  Code  11. 
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SECTION  VII 

LINEAR  INCREMENTAL  SOLUTION 


OVERVIEW 

This  program  accepts  matrix  data  representing  the  structural  model 
in  mathematical  form  and  solves  the  linear  equations  of  motion  incrementally 
to  obtain  the  structural  response.  The  solution  of  the  linear  equation 
of  motion  is  a subset  of  the  nonlinear  solution  as  described  in  Appendix  H 
of  Part  1 of  this  report.  The  FORMAT  steps  required  to  generate  the  input 
matrix  data  for  this  program  as  well  as  the  card  input  required  are  described 
in  Part  2 of  this  report.  Detailed  descriptions  of  each  labeled  conmon 
block  and  routine  in  this  program  are  given  in  Appendix  D of  this 
document. 

The  core  required  by  the  program  is  problem  dependent.  Sufficient 
space  must  be  available  in  blank  common  in  which  all  working  storage 
space  is  dynamically  allocated  during  execution.  This  requirement  is 
covered  in  detail  in  the  latter  part  of  this  section  (see  LIMITATIONS). 
However,  for  a nominal  size  problem  of  30  or  less  transformation  modes, 
which  is  the  predominant  sizing  factor,  the  program  requires  140,000  octal 
words  for  execution.  The  minimum  requirement  is  104,000  octal  words.  In 
addition  to  the  system  input/output  files  5 and  6,  the  program  requires 
22  external  files  of  which  19  are  used  as  scratch,  two  as  master  input, 
and  one  as  master  output. 

Current  Approach 

The  program  as  coded  is  significantly  different  from  the  theoretical 
development  given  in  Part  1 in  one  area.  This  involves  the  introduction 
of  the  cosine  load  variation  or  impedance  matrix  and  the  formation  of  the 
A matrix  from  which  all  eigenvalues  and  eigenvectors  are  extracted  to 
obtain  the  modal  incremental  response. 
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Currently,  the  program  does  not  Include  the  computation  and  applica- 
tion of  the  impedance  matrix  in  the  modal  response  equations.  In 
addition,  the  equations  solved  for  the  modal  response  are  based  on  an  A 
matrix  of  the  form 


■r]c 


I 


-JT'm 


where  the  desired  form  as  given  in  Part  1,  which  permits  a singular 
modal  stiffness  matrix  K,  is 


0 

r'ic 

-M'1 

I 


This  inconsistency  came  about  due  to  changes  in  theoretical  approach 
which  took  place  during  method  development.  Originally,  the  form  of  the 
A matrix  was  the  latter  using  M"1.  Subsequently,  it  was  decided  to  use 
the  form  with  because  of  singularities  in  the  modal  mass  matrix  in 
some  classical  test  problems.  However,  the  final  approach  as  documented 
In  Part  1,  reverts  back  to  the  original  form  of  the  A matrix  using  M~\ 

This  was  made  possible  by  Introducing  the  impedance  matrix  and  automatically 
accounting  for  null  rows/columns  in  the  modal  mass  matrix.  Unfortunately, 
coding  of  the  linear  solution  was  nearly  complete  using  the  R"1  form  of 
the  A matrix  and  time  did  not  permit  changing  the  code  to  be  consistent 
with  the  current  theoretical  approach. 


Organization 

Figure  7.1  shows  the  functional  organization  of  the  program  in  terms 
of  all  labeled  common  blocks  and  the  principle  routines.  Labeled  common 
blocks  are  In  parentheses.  Vertical  positioning  in  the  figure  depicts 
a basic  overlay  structure  which  could  be  implemented  in  the  future. 
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RESPNS 

(NDICES) 

(TAPES) 


Functionally,  the  program  can  be  broken  down  into  two  major  processing 
steps;  the  initialization  step  accomplished  by  the  three  main  branches 
NITIAL,  PREEIG,  and  EIGS0L,  and  the  incremental  response  solution 
accomplished  by  looping  through  both  remaining  branches,  LINEAR  and 
IMBAL. 

Operation 

The  design  of  this  program  includes  the  following  characteristics 
deemed  essential  for  efficient  and  flexible  operation.  All  working 
storage  used  by  the  program  is  in  blank  common.  Partitions  of  blank 
coirmon  are  dynamically  allocated  during  execution  for  each  of  the  matrices 
encountered  during  an  increment  of  the  solution  process.  The  partitions 
for  element  matrices  are  sized  according  to  cell  elements  which  have 
the  largest  requirements.  Full  advantage  is  taken  of  matrix  symmetry,  both 
in  storage  and  computations.  Further,  all  element  matrices  are  compressed 
if  possible  and  reformatted  into  a single  record  for  external  storage. 

The  main  program  consists  primarily  of  sequential  calls  to  routines 
NITIAL,  PREEIG,  and  EIGS0L  followed  by  a loop  in  which  routines  LINEAR 
and  IMBAL  are  called.  The  index  of  this  loop  is  the  number  of  time 
increments  as  specified  by  the  card  Input.  Between  each  of  the  calls, 
timing  routines  are  invoked  to  obtain  CP  time  for  the  execution  of  each 
module. 

Routine  NITIAL  performs  the  first  stage  of  Initialization  process. 
First,  labeled  common  block  TAPES  is  initialized  with  the  FORTRAN  logical 
unit  numbers  to  be  used  for  the  scratch  files.  Routine  MATIN  is  then 
called  to  read  the  first  master  input  tape  and  copy  each  input  matrix  to 
Individual  scratch  files.  The  input  file  contains  matrices  P^,  MPT, 

UQ,  ECT,  m,  k,  C,  F^,  ea,  5?^,  EVT,  and  CONST  assembled  in  a 
previously  executed  FORMAT  step.  Only  matrix  CONST  remains  core  resident. 


All  card  innut  is  then  read  by  routine  NITIAL  consisting  of  run 
parameters  and  incremental  time  history.  The  C0NST  array  Is  augmented 
with  the  number  of  modes  and  time  Increments  from  the  card  Input.  The 
first  data  card  is  read  with  a format  (4l6,  1L1 , 216)  and  contains  the 
following  run  parameters: 

BETA  beginning  time  Interval 

NELEMS  total  number  of  physical  elements  (excludes 

point  mass  elements) 

NTRVLS  number  of  time  intervals 

NG  number  of  transformation  modes 

HEAT  "F",  dummy  logical  control  flag 

NJTS  number  of  joints 

NW0RK  optional  extent  of  blank  common 

The  array  NTRVLS,  ascending  values  of  elapsed  time,  is  then  read  with 
format  (6E12.0). 

Using  the  problem  sizing  information  obtained  from  the  matrix  and 
card  input,  routine  NITIAL  then  begins  the  process  of  allocating 
partitions  of  the  blank  common  region  for  each  array  required  in  sub- 
sequent processing  steps.  The  first  location  of  each  of  these  partitions 
is  stored  In  labeled  common  block  NDICES.  The  details  of  the  dynamic 
allocation  scheme  used  are  given  later  in  this  section  (see  CORE 
UTILIZATION). 

Next,  the  cell  stress  transform,  ae  , is  initialized  by  routine 

SO 

NITIAL  since  It  is  constant  for  all  cell  elements. 

Routine  READK  Is  then  called  by  NITIAL  to  rewrite  matrices  k,  c,  F^, 
eo,  and  Se^  in  optimum  format.  Element  partitions  of  matrices  k,  c,  and 
are  reformatted  In  upper  triangular  row-wise  form  to  take  advantage  of 
symmetry.  The  partitions  of  matrices  k,  c,  and  5?y  for  each  element  are 
then  written  on  a single  file  as  three  records.  The  partition  of  zg  is 
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written  to  a seperate  file  as  one  record.  Element  partitions  of  matrix 
F^-  are  compressed  and  written  to  a seperate  file  as  a single  record. 

After  setting  various  blank  common  partitions  to  zero,  NITIAL  calls 
routine  SIGFBR  to  rewrite  matrix  in  optimum  format.  Element  partitions 

of  op  are  compressed  and  written  to  a seperate  file  as  a single  record. 

Interspersed  in  the  above  initialization  steps  is  the  setting  of 
parameters  in  labeled  common  block  LIMITS  and  the  transcribing  of  certain 
input  data  to  the  master  output  file.  The  data  written  to  the  master 
output  file  by  routine  NITIAL  are  the  augmented  matrix  of  problem 
parameters,  C0NST,  the  matrix  of  card  input  incremental  time  history, 

TIME,  the  matrix  of  original  joint  coordinates,  UZER0,  and  the  contents 
of  the  second  master  input  file,  matrices  DPBPHI  and  PBUPTJ,  the  incre- 
mental applied  loads  and  the  modal  to  joint  T degree  of  freedom  trans- 
form, respectively. 

The  second  stage  of  initialization  is  performed  by  routine  PREEIG. 

This  consists  of  computing  the  modal  stiffness,  damping,  mass,  and  loads 
matrices,  K,  C,  M,  and  5PKg>  respectively.  Some  of  the  byproducts  of 
this  task  are  also  stored  seperately  on  external  files.  After  first 
initializing  the  arrays  K,  C,  M,  v,  E,  6PKq,  t0  zero,  the  following 

operations  are  performed  for  each  physical  element  in  the  model. 

Read  k,  c,  oiy,  m,  Fp,  and  PuF  from  scratch  files 

S fKo  ’ - 1 S*T 

0 ' fF 

OK  ■ 0 k 

Write  5FKq  and  DK  to  seperate  scratch  files 
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6PK0  * 6PK0  + DiFKo 


K * K + DK  O' 

C * C + D c DT 

M - M + Pup  m PupT 


After  all  bars,  membranes,  and  cells  have  been  processed  in  this 
manner,  routine  PTMASS  is  called  to  add  point  mass  element  contributions 
to  matrix  M if  any  of  these  elements  are  present  in  the  model. 


The  third  and  final  stage  of  initialization  is  performed  by  routine 
EIGS0L,  the  third  main  branch  from  the  left  in  Figure  7.1.  This  consists 
of  the  A matrix  assembly  and  subsequent  solution  for  eigenvalues  and 
eigenvectors.  Routine  CHLSKY  is  called  to  obtain  the  decomposition  of  K 
and  the  A matrix  is  assembled  according  to 


K-1C  -K_1M 


I | 0 


and  the  eigen  equation  of  the  form 


H H 
a v 


is  solved  for  the  eigenvalues  H an<*  ^e  diagonal  matrix  of  eigen- 

values Xq.  The  Inverse  of  the  eigenvectors  is  then  obtained  using  routine 
JORDAN  and  both  the  eigenvectors  and  their  Inverse  are  written  to  the 
same  scratch  file. 


The  eigenvalue  problem  is  solved  by  routine  RGEIG  which  Is  part  of 
the  EISPACK  library  (Reference  16).  The  version  of  routine  RGEIG  in  this 
code  has  been  modified  slightly  from  that  in  the  EISPACK  library.  In  an 


l 


r 


effort  to  reduce  core  space,  the  origin  of  the  real  input  matrix  was  moved 
2 

n locations  down  from  the  origin  of  the  matrix  of  eigenvectors  where  n 
is  the  order  of  the  problem.  This  allows  for  the  eigenvectors  exclusively 
in  the  complex  mode. 

This  concludes  the  Initialization  steps.  Other  than  core  resident 
data,  input  to  the  incremental  solution  step  consists  of  matrices  o^, 
eff,  OK,  <SFKq,  H and  H"^  residing  on  scratch  files,  and  matrix  on 

the  second  master  input  file. 

Executing  the  incremental  solution  is  accomplished  by  routines  LINEAR 
and  IMBAl.  These  routines  are  called  in  this  sequence  by  the  main  program 
for  each  time  increment.  Routine  LINEAR  computes  the  modal  response  and 
routine  IMBAL  computes  the  element  forces,  stresses  and  strains  from  the 
modal  response. 


Core  resident  data  during  the  incremental  solution  which  remains 
constant  includes  K,  K"\  C,  R,  Xg,  and  the  cell  stress  transform 

°so  Previous1y  set  *n  routine  NITIAL.  Core  resident  data  from  the  previous 
increment  includes  P^g,  v and  5.  Using  this  data  and  previously  assembled 

data  on  external  files,  routine  LINEAR  performs  the  following  operations 
for  the  increment. 


Read  From  the  second  master  Inrut  file 

Read  H and  H*^  from  scratch  file 
P * 6?K0  + ?(M)U  + 6?(*)U 
Z » -K'1  P 


Ca  * H 
a0 


■i  rzi 
T 


diagonalized 


F (t)  • eXT  where  t is  the  incremental  time 

Q • C F (T) 
aD 
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[r]» H q 

6A  « 6A  - Z 


Routine  IM8AL  then  completes  the  computation  of  the  modal  response  by 
performing  the  following  operations. 

f(M)U  * " * * 1 5 
A ■ A ♦ fiZ- 

This  is  followed  by  a call  to  routine  0UTPUT  which  writes  the  modal 
response  to  the  master  output  file.  The  modal  response  is  output  as  a 
column  matrix  with  the  name  RESPNS  and  a subscript  equal  to  the  increment 
number.  The  data  output  consists  of  a,  6a,  v,  v,  P1  and  P2  arranged  in 
that  order  in  a column  of  length  6*NG  where  NG  is  the  number  of  transformation 
modes.  The  P^  and  partitions  of  the  column  have  no  real .significance. 

Routine  IMBAL  then  enters  a loop  for  processing  each  element.  This 
loop  processes  bar,  membrane,  and  cell  elements  in  that  order.  A matrix 
is  written  to  the  master  output  file  for  each  element  type  that  exists 
in  the  model.  The  following  operations  are  performed  for  each  element. 

Read  o?,  e , DK,  and  6F„„  from  scratch  files 
“ a no 

fK  ■ sFKo  ' DKT5 

a ■ op  Fk  for  bars  and  membranes 
or  o * o$<j  Up  Fk  for  cells 

c * c a 
o 

Write  F^,  a,  and  c to  master  output  file 
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The  element  forces,  stresses,  and  strains  are  arranged  in  that  order 
into  a single  column  of  the  output  matrix  for  each  type  of  element.  The 
matrix  names  used  for  the  three  element  types  are  BARS,  MEM8RN,  and  CELLS. 
Each  is  subscripted  with  the  increment  number. 

This  ends  the  processing  for  an  increment.  Execution  of  routines 
LINEAR  and  IMBAL  is  repeated  for  each  of  the  increments  specified  on  the 
first  input  data  card. 

FILE  UTILIZATION 


All  card  Input  is  read  from  the  system  input  file  5 and  all  printed 
output  is  written  to  the  system  output  file  6.  Although  FORTRAN  logical 
units  7 and  29  are  declared  in  the  PROGRAM  statement  in  the  main  program, 
they  are  never  referenced.  FORTRAN  logical  units  1 through  4 and  8 through 
23  are  referenced  as  external  files  using  the  variables  N1  through  N20 
stored  in  labeled  cormon  block  TAPES  (see  Appendix  0,  LABELED  COMMON  TAPES). 
File  N2  is  used  as  the  master  output  file  while  N17  and  N18  are  used  for 
the  two  master  input  files.  All  three  master  input/output  files  are 
formatted  consistent  with  FORMAT  master  input/output  matrix  tapes. 


The  code  does  not  key  on  the  FORMAT  tape  or  matrix  names  in  the  input 
files.  Matrix  data  is  identified  by  its  sequential  position  on  the  input 
files.  The  sequence  of  matrix  data  on  the  first  input  file,  N17,  is 
P(jF»  MPT,  UQ,  ECT,  m,  k,  c,  Fp,  op  e^,  65^.,  EVT,  and  C0NST.  The  sequence 
of  matrix  data  on  the  second  input  file,  N18,  is  and  ^ypyj • All 

of  these  matrices  are  created  in  the  Initial  Generator  except  for  P, 
SP(^)U,  and  Pypyj  which  are  computed  in  preceding  FORMAT  steps. 


UF' 


Table  7.1  shows  the  use  of  external  files  by  each  of  the  principle 
routines  during  the  solution  process.  The  routines  are  listed  in  their 
execution  sequence.  All  relevant  data  stored  on  external  files  are 
listed  at  the  top.  In  the  table,  the  variable  external  file  references 
alongside  "IN"  implies  the  data  is  read  from  that  file  in  the  corresponding 
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TABLE  7.1.  LINEAR  INCREMENTAL  SOLUTION  PROCESSING  FILES 


routine.  File  references  alongside  “OUT"  imply  the  data  is  written  to 
that  file  in  the  corresponding  routine. 

All  output  to  the  master  output  file,  M2,  occurs  in  routines  NITIAL, 
IM8AL  and  routine  0UTPUT  which  is  called  by  IMBAL.  The  FORMAT  tape  name 
and  modifier  of  the  master  output  is  WIND0W,  52877  and  is  written  by 
NITIAL.  A description  of  each  of  the  output  matrices  including  the 
routine  from  which  they  originate  is  given  below. 


Routine 

FORMAT 
Matrix  Name 
and  Modifier 

Row  and 
Column 
Dimensions 

Description 

NITIAL 

CONST,  1 

30  x 1 

problem  constants 

NITIAL 

TIME,  1 

NTRVLS  x 1 

incremental  time  history 

NITIAL 

UZER0,  1 

NJTS  x 3 

original  joint  coordinates 

NITIAL 

DPBPHI,  1 

NG  x NTRVLS 

incremental  transformed  applied 
loads 

NITIAL 

PBUPTJ , 1 

NG  x 3*NJTS 

modal  to  joint  T degree  of  freedom 
transform 

0UTPUT 

RESPNS , 3 

6*NG  x 1 

modal  response 

IMBAL 

BARS,  S 

4 x NBAR 

bar  element  response 

IMBAL 

MEMBRN,  3 

15  * NMEM 

membrane  element  response 

IMBAL 

CELLS,  B 

54  * NCEL 

cell  element  response 

where  S is  the  increment  number  and  NBAR,  NMEM,  and  NCEL  are  the  number  of  bar, 
membrane,  and  cell  elements,  respectively.  Note  that  matrices  BARS,  MEMS'IN,  and 
CELLS  will  be  present  only  if  the  corresponding  element  types  are  present  in  the 
structural  model.  Also,  the  names  DPBPHI  and  PBUPT3  may  vary  since  they  are  user 
defined  in  a preceedinq  FORMAT  step.  All  other  matrix  names  shown  above  are 
imbedded  in  the  orooram  code. 


CORE  UTILIZATION 

All  internal  core  storage  is  within  array  A in  blank  common.  The  array 
is  implicitly  partitioned  by  routine  NITIAL  where  the  beginning  locations 
of  each  partition  are  computed.  These  beginning  locations,  or  indices,  are 
stored  in  labeled  common  block  NDICES.  In  the  allocation  scheme,  an  overlay 
structure  is  used  within  array  A where  a given  space  is  reused  for  different 
data  as  the  solution  process  proceeds.  For  reference,  the  labeled  common 
block  declaration  for  NOICES  is  repeated  here. 

C0MM0N  /NDICES/IVBDB , IVBB , IVBX , IDPBPU , IPBMUB , IDPPUB, IDBL , IVBL 
, I PBAR , I PBPHU , I KB , I C8 , IMBAR , IMBARL , I DEBCL , IC0NST 

, ITIME , ISIGSS 

, IKBL,IZ,ICA,IQ,IVAL,IFTAU ,IVEC,IEGSYS 

, IU ,LU , I ECT , IEVT , IMPT , IDEBO , IDFBKO , I DSEB 

, I FK , I FBK , I DEL , I DEDL , I FSFB , I FSFBB , I PBCU 

, IPBKU.ISIGFB  ,ISIGBH,IEPSIG,IPSL0N ,IO,IDK 

, ' ISKB,ISKBB,ISCB,ISCBB,IPBUF,ISK,ITK,ICIB,IMEL 

Each  integer  variable  In  NDICES  is  the  first  location  of  a partition 
in  array  A.  For  example,  A (IVBD8)  and  A (IVBB-1)  point  to  the  first 
and  last  locations  of  the  partition  used  to  store  matrix  70.  By  definition, 
the  length  of  the  partition  would  be  equal  to  the  number  of  transformation 
modes  NG. 

The  variables  in  NDICES  are  allocated  in  such  a way  as  to  represent 
three  contiguous  members.  The  members  are  from  IVBDB  through  ISIGSS, 
from  IKBL  through  IEGSYS,  and  from  IU  through  IMEL.  The  member  IVBDB 
through  ISIGSS  is  permanently  resident  in  array  A,  while  the  remaining  to 
members  are  effectively  overlaid.  Graphically,  the  overlay  structure  can 
be  shown  as 
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IVBDB 


ISIGSS 


1 

IKBL 

IU 

IEGSYS  I MEL 

where  the  vertical  positioning  implies  relative  location  in  array  A and 
IVBDB  starts  at  A(l).  The  member  IKBL  through  IEGSYS  is  used  exclusively 
by  routine  EIGSOL  for  the  eigen  problem  solution.  Member  IU  through  IMEL 
is  used  by  all  other  parts  of  the  program. 

The  actual  allocation  in  the  present  code  deviates  from  this  scheme 
in  that  the  partition  associated  with  IU  has  been  moved  to  the  end  of  the 
permanently  resident  member  IVBDB  through  ISIGSS.  This  was  done  so  that 
the  joint  coordinate  data  would  be  permanently  core  resident.  This  is 
no  longer  a requirement  in  the  linear  incremental  solution  and  could  be 
changed  to  conform  to  the  allocation  scheme  as  shown  above. 

There  are  three  other  labeled  common  blocks  used  by  the  program,  LIMITS, 
TAPES,  and  CL0CK.  Detailed  descriptions  of  each  common  block  are  given  in 
Appendix  D.  Table  7.2  lists  each  of  the  common  blocks  and  all  routines 
which  reference  them. 

LIMITATIONS 

Sufficient  space  must  be  available  in  blank  common  array  A to  accommodate 
the  problem.  The  size  of  array  A required  for  a given  problem  is  a function 
of  many  parameters.  The  dimensioned  size  of  array  A is  8000  which  is  stored 
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TABLE  7.2  LINEAR  INCREMENTAL  SOLUTION  LABELED  COMMON  REFERENCES 


\ 


Labeled 

Common 

Block 

Referenced  by  Routine 

CLUCK 

TIMEQ,  TSETQ 

LIMITS 

RESPNS,  EIGS0L,  IMBAL,  LINEAR,  NDXSET,  NITIAL,  0UTPUT , PBARUF, 
PREEIG,  PTMASS,  READK,  SIGFBR 

NDICES 

RESPNS,  EIGS0L,  IMBAL,  LINEAR,  NDXSET,  NITIAL,  0UTPUT , 

PBARUF,  PREEIG,  PTMASS,  READK,  SIGFBR 

TAPES 

RESPNS,  EIGS0L,  IMBAL,  LINEAR,  NITIAL,  0UTPUT , PBARUF,  PREEIG, 
PTMASS,  READK,  SIGFBR 

I 
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in  variable  NW0RK  and  initialized  by  routine  NITIAL.  Larger  sizes  can  be 
defined  by  Inputting  the  appropriate  value  of  NVI0RK  on  the  first  input 
data  card  which  is  read  by  NITIAL. 

The  size  of  NW0RK  must  be  sufficient  to  satisfy  the  following  relation- 
ships 

NW0RK  > 1200  + 5NM  + 27NG  + NELEMS  + NTRVLS  + 3NJTS  + 8NG2 

NW0RK  > 6700  + 5NM  + 113NG  + NELEMS  + NTRVLS  + 4NJTS  + NUM 


where 

NG 

is  the  number  of  transformation  modes 

NM 

-(NG2  + NG)/2 

NELEMS 

is  the  number  of  physical  elements  (excludes  point 
mass  elements) 

NTRVLS 

is  the  number  of  time  increments 

NJTS 

is  the  number  of  joints 

and 

MUM 

is  the  length  of  the  MPT  record  (row  dimension  of 
matrix  MPT) 
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SECTION  VIII 

NONLINEAR  INCREMENTAL  SOLUTION 


OVERVIEW 

This  program  accepts  matrix  data  representing  the  structural  model 
in  mathematical  form  and  solves  the  nonlinear  equations  of  motion  in- 
crementally to  obtain  the  structural  response.  The  solution  of  the  non- 
linear equations  is  mathematically  consistant  with  the  theory  developed 
in  Part  1 of  this  report  and  the  equations  summarized  in  Appendix  H of 
that  document.  However,  the  procedures  followed  by  this  program  are 
not  complete  with  respect  to  material  nonlinearity  nor  is  the  code  opti- 
mized for  geometric  nonlinearity.  This  will  be  covered  in  detail  later 
in  this  section. 

The  FORMAT  steps  required  to  generate  the  input  matrix  data  for  this 
program  as  well  as  the  card  input  required  are  described  in  Part  2 of 
this  report.  Detailed  descriptions  of  each  labeled  common  block  and 
routine  in  this  program  are  given  In  Appendix  E of  this  document. 

The  core  required  by  the  program  is  problem  dependent.  Sufficient 
space  must  be  available  in  blank  common  In  which  all  working  storage 
space  Is  dynamically  allocated  during  execution.  This  requirement  is 
covered  in  detail  In  the  latter  part  of  this  section  (see  LIMITATIONS). 
However,  for  a nominal  size  problem  of  30  or  less  transformation  modes, 
which  is  the  predominant  sizing  factor,  the  program  requires  170000  octal 
words  for  execution.  The  minimum  requirement  is  134000  octal  words.  In 
addition  to  the  system  Input/output  files  5 and  6,  the  program  requires 
23  external  files  of  which  20  are  used  as  scratch,  two  as  master  input, 
and  one  as  master  output. 

Development  History 


The  original  design  of  this  code  was  based  on  a theoretical  approach 


significantly  different  from  that  documented  in  Part  1.  The  design  in- 
cluded strategies  for  the  computations  of  both  geometric  and  material  non- 
linearities  according  to  the  original  theoretical  approach. 

The  theoretical  approach  in  this  early  stage  of  development  attempt- 
ed to  account  for  geometric  nonlinearity  by  means  of  a scalar  correction 
factor  to  be  applied  to  the  linear  incremental  modal  response.  The  corr- 
ection factor,  a,  was  computed  as  the  single  unknown  of  a third  order 
polynomial  whose  coefficients  included  the  effects  of  fictitious  forces 
and  deformations. 

Subsequent  application  of  this  code  to  geometrically  nonlinear  prob- 
lems proved  unsatisfactory.  Several  alternate  theoretical  approaches  to 
geometric  nonlinearity  were  proposed,  implemented  in  the  code,  tested, 
and  either  accepted  or  rejected.  During  this  time,  some  code  relative 
to  material  nonlinearity  was  deleted  from  the  test  versions  of  the  pro- 
gram since  1)  the  test  cases  did  not  include  these  effects,  2)  the  mat- 
erial nonlinearity  code  was  incomplete,  and  3)  because  of  the  change  in 
approach  to  geometric  nonlinearity,  the  original  program  design  and 
associated  code  for  processing  material  nonlinearity  was  not  compatible 
with  the  modified  code  either  in  an  operational  or  theoretical  sense. 

At  this  point  In  time,  all  executive  routines  and  associated  data  rela- 
tive to  processing  material  nonlinearity  according  to  the  original 
theoretical  approach  were  implemented  throughout  the  code.  However,  the 
routines  necessary  for  the  actual  updating  of  material  properties  and 
regeneration  of  element  stiffness,  damping,  etc.  were  not  yet  ready  for 
implementation. 

The  modifications  made  to  the  original  code  during  this  development 
process  were  intended  as  temporary  changes  for  testing  purposes  only. 

It  was  assumed  that  subsequently,  the  final  approach  adopted  would  be 
Implemented  as  efficiently  as  possible.  However,  time  constraints  did 
not  permit  reimplementation  of  the  final  approach  to  geometric  nonlinearity 
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nor  the  completion  of  the  material  nonlinearity  code.  The  final  version 
of  the  code,  therefore,  reflects  this  development  history  and  the  conse- 
quences of  time  constraints.  Under  the  heading  FUTURE  DEVELOPMENT  at 
the  end  of  this  section,  more  specific  information  is  provided  regarding 
elimination  of  some  of  these  shortcomings. 

The  final  version  of  the  code  reflects  the  final  theoretical  approach 
adopted' for  geometric  nonlinearity  which  is  that  documented  in  Part  1 
of  this  report.  The  principle  differences  between  this  approach  and  the 
original  is  the  iterative  solution  process  for  the  modal  response  rather 
than  the  a approach,  and  the  introduction  of  the  cosine  load  variation 
or  impedance  matrix. 

The  following  discussion  of  the  Nonlinear  Incremental  Solution  program 
covers  those  areas  of  processing  consistant  with  the  final  theoretical  app- 
roach to  geometric  nonlinearity.  The  actual  code,  however,  still  contains 
many  operations  based  on  the  original  approach  to  both  material  and  geometric 
nonlinearity.  These  areas  of  the  code  are  described  under  the  heading 
FUTURE  DEVELOPMENT  at  the  end  of  this  section.  In  addition,  the  document- 
ation of  each  routine  in  Appendix  E identifies  these  areas  of  code  in  more 
detail . 

Organization 

Figure  8.1  shows  the  functional  organization  of  the  program  in  terms 
of  all  labeled  common  blocks  and  the  principle  routines.  Labeled  common 
blocks  are  In  parentheses.  Vertical  positioning  In  the  figure  depicts 
a basic  overlay  structure  which  could  be  implemented  in  the  future. 

Functionally,  the  program  can  be  broken  down  into  two  major  processing 
steps;  the  initialization  step  accomplished  by  the  two  main  branches 
NITIAL  and  0UTPUT,  and  the  incremental  solution  accomplished  by  looping 
through  the  remaining  branches,  PREEIG,  EIGS0L,  FIFDEF,  PREBAL,  and  IMBAL. 

The  iterative  solution  for  the  modal  response  is  an  inner  loop  consisting 
of  the  EIGS0L  and  FIFDEF  modules. 
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Figure  8.1.  Nonlinear  Incremental  Solution  Organization 
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Operation 

The  design  of  this  program  includes  the  following  characteristics 
deemed  essential  for  efficient  and  flexible  operation.  All  working 
storage  used  by  the  program  Is  in  blank  common.  Partitions  of  blank 
common  are  dynamically  allocated  during  execution  for  each  of  the  matrices 
encountered  during  an  increment  of  the  solution  process.  The  partitions 
for  element  matrices  are  sized  according  to  cell  elements  which  have 
the  largest  requirements.  Full  advantage  is  taken  of  matrix  symmetry, 
both  In  storage  and  computations.  Further,  all  element  matrices  are  comp- 
ressed if  possible  and  reformatted  into  a single  record  for  external 
storage. 

The  main  program  RESPNS  consists  of  sequential  calls  to  routines 
NITIAL  and  0UTPUT  followed  by  a loop  whose  index  is  the  number  of  time 
increments  as  specified  by  the  card  input.  Within  this  loop,  routines 
PREEIG,  EIGS0L,  FIFDEF,  PREBAL,  and  IMBAL  are  called  In  sequence  where 
ETGS0L  and  flFDEF  are  called  repeatedly  under  control  of  an  inner  loop. 

The  index  of  this  inner  loop,  which  Is  the  iterative  processing  to  account 
for  geometric  nonlinearity  in  the  solution  of  the  modal  response,  is  a 
constant  initialized  as  5. 

Routine  NITIAL  performs  the  first  stage  of  initialization  process. 
First,  labeled  common  block  TAPES  is  initialized  with  the  FORTRAN  logical 
unit  numbers  to  be  used  for  the  scratch  files.  Routine  MATIN  is  then 
called  to  read  the  first  master  input  tape  and  copy  each  input  matrix  to 
individual  scratch- files.  The  input  file  contains  matrices  P^,  MPT, 

UQ,  ECT,  m,  k,  c,  Fp,  Cp  ea>  siy,  EVT,  and  C0NST  assembled  in  a previous- 
ly executed  FORMAT  step.  Only  matrices  C0NST  and  UQ  remain  core  resident. 

All  card  input  is  then  read  by  routine  NITIAL  consisting  of  run 
parameters  and  incremental  time  history.  The  first  data  card  is  read 
with  a format  (416,  1 LI , 216)  and  contains  the  following  run  parameters: 
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BETA 

beginning  time  interval 

NELEMS 

total  number  of  physical  elements 
(excludes  point  mass  elements) 

NTRVLS 

number  of  time  intervals 

NG 

number  of  transformation  modes 

HEAT 

"F",  dummy  logical  control  flag 

NJTS 

number  of  joints 

NW0RK 

optional  extent  of  blank  common 

The  array  NTRVLS,  ascending  values  of  elapsed  time,  is  then  read  with 
format  (6E12.0). 

Using  the  problem  sizing  information  obtained  from  the  matrix  and 
card  input,  routine  NITIAL  then  begins  the  process  of  allocating 
partitions  of  the  blank  common  region  for  each  array  required  in  sub- 
sequent processing  steps.  The  first  location  of  each  of  these  partitions 
is  stored  in  labeled  common  block  NDICES.  The  details  of  the  dynamic 
allocation  scheme  used  are  given  later  in  this  section  (see  CORE 
UTILIZATION). 

Next,  the  cell  stress  transform,  a$o,  is  initialized  by  routine 
NITIAL  since  it  is  constant  for  all  cell  elements. 

Routine  READK  is  then  called  by  NITIAL  to  rewrite  matrices  k,  c,  Fp, 
eo,  and  6iy  In  optimum  format.  Element  partitions  of  matrices  k,  c,  and 
ea  are  reformatted  in  upper  triangular  row-wise  form  to  take  advantage  of 
symmetry.  The  partitions  of  matrices  k,  c,  and  6iy  for  each  element  are 

then  written  on  a single  file  as  three  records.  The  partition  of  e is 

o 

written  to  a separate  file  as  one  record.  Element  partitions  of  matrix 
Fp  are  compressed  and  written  to  a separate  file  as  a single  record. 

NITIAL  then  reads  the  original  joint  coordinate  data  into  core  from 
the  scratch  file  where  it  had  been  written  by  routine  MATIN.  Before  exit' 
ing  NITIAL,  various  blank  common  partitions  are  Initialized  to  zero  in- 
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eluding  those  for  v,  v,  SPjj,  P^y,  l5P(<))u»  and  ^ci' 

Interspersed  in  the  above  initialization  steps  is  the  setting  of 
problem  parameter  variables  in  labeled  common  block  LIMITS. 

Routine  0UTPUT  transcribes  certain  input  matrix  data  to  the  master 
output  file.  After  augmenting  array  C0NST  with  the  number  of  modes  and 
time  increments  from  the  card  input,  the  data  written  to  the  master 
output  file  are  the  augmented  matrix  of  problem  parameters,  C0NST,  the 
matrix  of  card  input  Incremental  time  history,  TIME,  the  matrix  of  orig- 
inal joint  coordinates,  UZER0,  and  the  contents  of  the  second  master  in- 
put file,  matrices  DPBPHI  and  PBUPTJ,  the  incremental  applied  loads  and 
the  modal  to  joint  T degree  of  freedom  transform,  respectively. 

I 

This  concludes  the  initialization  process.  All  data  passed  to  the 
incremental  solution  process  is  on  external  files  except  for  the  arrays 
of  Incremental  times,  original  joint  coordinates,  and  problem  constants. 
During  the  -incremental  solution,  it  is  assumed  that  the  element  stiffness 
and  damping  remain  constant  and  that  no  Initial  element  deformations 
from  thermal  or  other  causes  are  present. 

Incremental  solution  processing  begins  with  the  execution  of  routine 
PREEI6.  First,  the  transformed  incremental  applied  loads  for  the  Increment, 
if  any,  are  read  from  the  second  master  Input  file.  The  matrix  of  trans- 
formed loads  P is  then  partially  assembled  according  to 

* " ’ ^(M)U  + *(*)„ 

I 

where  <5Py  are  the  unbalanced  forces  from  the  previous  increment,  P^y 
are  the  Inertia  forces  from  the  previous  Increment,  and  6P^y  are  the 
applied  loads. 

A loop  is  then  entered  whose  index  is  the  number  of  elements  in  the 
structural  model.  The  following  operations  are  performed  for  each  element. 


4 

m 


j 
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Read  k,  c,  and  $iy  from  scratch  file 
5FKo  * * 'k  i5T 

Read  D from  scratch  file  (D  * Pyp  Fp) 

P - P+D6FKq 

OK  a D k 

K a K + DK  DT 

C a C + D c 0T 

Read  F^  from  scratch  file 

FK  ■ fk  * SFKo 

Write  DK,  k and  FK  to  scratch  file 

After  all  bars,  membranes,  and  cell  elements  have  been  processed, 
the  assembly  of  the  transformed  loads  is  completed  by  subtracting  the 
modal  damping  forces  of  the  previous  Increment  P^y  from  the  partially 
assembled  loads  P. 

The  sequence  of  operations  above  is  slightly  different  on  the  initial 
pass  for  the  first  increment.  Matrix  D is  computed  from  matrices  Pyp  and 
Fp  read  from  scratch  files  and  then  matrix  D is  written  to  a separate 
scratch  file.  Matrix  F^,  the  element  forces  from  the  previous  increment, 
is  Initialized  to  zero  rather  than  read  from  a scratch  file.  Matrix  M 
is  computed  according  to 


M 


M + P 


UF 


where  M is  implicitly  initialized  to  zero  as  are  K and  C in  the  sequence 

above.  After  all  bar,  membrane,  and  cell  elements  have  been  processed, 

routine  PTMASS  is  called  by  PREEIG  to  add  contributions  from  point  mass 

elements,  If  any,  to  matrix  M.  Finally,  any  null  rows/columns  of  M are 

-4 

augmented  on  the  diagonal  with  a value  equal  to  1 x 10  of  the  root  mean 
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square  of  all  non  zero  diagonal  elements  of  the  matrix.  Routine  CHL5KY 
is  then  called  to  decompose  M.  The  decomposition  of  this  matrix  then 
remains  core  resident  for  the  remainder  of  the  run. 

The  Inner  loop  consisting  of  routines  EIGS0L  and  FIFDEF  is  then 

executed  for  5 iterations.  Routine  EIGS0L  assembles  the  A matrix  for 

which  the  eigenvalues,  and  the  eigenvectors,  H,  are  obtained.  Routine 

RGEIG,  which  is  part  of  the  EISPACK  library  (Reference  16),  Is  called  for 

solution  of  the  eigen  problem.  The  version  of  routine  RGEIG  in  this  code 

has  been  modified  slightly  from  that  in  the  EISPACK  library.  In  an  effort 

2 

to  reduce  core  space,  the  origin  of  the  real  Input  matrix  was  moved  n 
locations  down  from  the  origin  of  the  matrix  of  eigenvectors  where  n is 
the  order  of  the  problem.  This  allows  for  the  eigenvectors  exclusively 
in  the  complex  mode. 

Input  to  EIGS0L  are  the  core  resident  transformed  modal  stiffness, 
damping,  decomposed  mass,  and  loads  matrices  K,  C,  M~^ , and  P,  respect- 
ively. Also  input  for  all  iterations  other  than  the  first  are  the  equiv- 
alent loads  derived  from  fictitious  force  and  deformation  effects  computed 
by  routine  FIFDEF  which  are  also  core  resident.  Output  from  EIGS0L#are 
the  modal  displacements,  velocities,  and  accelerations,  5A,  v,  and  v, 
respectively.  The  equations  for  solution  of  the  modal  response  are  given 
in  Appendix  H of  Part  1 (H.161  through  H.175). 

Routine  FIFDEF  Is  then  executed  to  obtain  the  effects  of  fictitious 
forces  «nd  deformations.  Using  the  modal  response  computed  by  routine 
EIGS0L,  and  element  forces  due  to  fictitious  deformations  computed  by 
FIFDEF  In  the  previous  incrment,  FIFDEF  processes  each  element  individually 
to  determine  the  element  deformations,  temporarily  updated  joint  coordi- 
nate data,  and  compute  element  forces.  This  data  Is  then  used  to  solve 
for  the  element  fictitious  forces  and  deformations  from  which  the  equiv- 
alent transformed  loads  and  element  forces  due  to  fictitious  deformations 
are  derived  for  use  in  the  next  iteration.  The  element  forces  due  to 
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fictitious  deformations  are  output  to  a scratch  file  for  use  by  FIFDEF 
in  the  next  iteration. 

Routines  GE0M  and  AVRAGE  are  called  by  FIFDEF  to  temporarily  update 
geometry  and  average  geometry,  respectively.  Routines  LPBFIC,  LPMFIC, 
and  LPCFIC  are  called  by  FIFDEF  to  compute  fictitious  force  and  deforma- 
tion effects  from  bar,  membrane,  and  cell  elements,  respectively. 

Routines  EIGS0L  AND  FIFDEF  are  then  executed  again  for  the  next 
iteration  until  5 Iterative  steps  have  been  completed.  At  the  end  of  the 
iterative  process,  the  final  element  forces  and  deformations  from  FIFDEF 
are  passed  on  a scratch  files  to  routine  PREBAL,  the  next  step  In  the 
incremental  solution.  The  final  modal  response  from  EIGS0L  consisting 
of  the  incremental  displacements  da,  the  cumulative  velocities  v,  and 
the  cumulative  accelerations  v are  core  resident. 

Routine  PREBAL  permanently  updates  joint  coordinates,  computes  the 
incremental  element  forces,  and  regenerates  matrices  Fp  and  <jp  based  on 
the  new  geometry.  Before  processing  each  element  to  accomplish  these 
tasks,  the  transformed  modal  inertia  forces  are  updated  based  on  the 
accelerations  at  the  end  of  the  increment  according  to 


Following  this,  the  Implicit  initialization  of  the  arrays  for  P^^ 
and  to  zero,  and  a call  to  routine  PREBLL  to  perform  some  inter- 

mediate allocation  of  work  space,  the  following  operations  are  performed 
for  each  element. 

Read  PI|C,  Fs  , ECT,  de  and  de  from  scratch  files 
UF  FB-1 

Call  routine  PREBGM  to  update  coordinates  and  regenerate  Fp  and  op 

° '/ufff 

Read  F„  and  c from  scratch  files 
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' P(C)U  * P(C)U  + D 5 5* 

Read  F„  from  scratch  file 

S-l 

8 - 1 

P(K)U  * P(K)U  + D PK 

Write  D,  Fp,  sF^,  and  a p to  scratch  files 

The  last  step  In  processing  for  an  Increment  Is  the  execution  of 
routine  IMBAL.  First,  the  core  resident  matrices  for  cumulative  trans- 
formed modal  applied  loads  and  displacements  are  augmented  with  their 
Incremental  components  according  to 


p(*)u  “ P(*)U  + 5P(*)u 


A + SA 


Next,  routine  IMBAL  writes  the  model  response  to  the  master  output 
file.  The  modal  response  Is  output  as  a column  matrix  with  the  name 
RESPNS  and  a subscript  equal  to  the  Increment  number.  The  data  output 
consists  of  a,  5A,  v,  v,  and  Pg  arranged  In  that  order  in  a column 

of  length  6*NG  where  NG  is  the  number  of  transformation  modes.  The  P^ 
and  Pg  partitions  of  the  column  have  no  real  significance. 

Routine  IMBAL  then  enters  a loop  for  processing  each  element.  This 
loop  processes  bar,  membrane,  and  cell  elements  in  that  order.  A matrix 
Is  written  to  the  master  output  file  for  each  element  type  that  exists 
In  the  model.  The  following  operations  are  performed  for  each  element. 


Read  <jp,  £(j,  F<f  e8-1  and  6F^  frQm  scratch  f11es 


or  a 


ap  F^  for  bars  and  membranes 
aso  *F  for  ce11s 
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e * Vl  * e»  °F  S\ 

Write  Fk,  cx,  and  e to  master  output  file 

The  element  forces,  stresses,  and  strains  are  arranged  in  that  order 
into  a single  column  of  the  output  matrix  for  each  type  of  element.  The 
matrix  names  used  for  the  three  element  types  are  BARS,  MEMBRN , and  CELLS. 
Each  is  subscripted  with  the  increment  number. 


This  ends  the  processing  for  an  increment.  Execution  of  routines 
PREEIG,  EIGS0L,  FIFDEF,  PREBAL,  and  IMBAL  is  repeated  for  each  of  the 
increments  specified  on  the  first  input  data  card. 

FILE  UTILIZATION 

All  card  input  is  read  from  the  system  input  file  5 and  all  printed 
output  Is  written  to  the  system  output  file  6.  Although  FORTRAN  logical 
unit  7 is  declered  in  the  PROGRAM  statement  in  the  main  program,  it  is 
never  referenced.  FORTRAN  logical  units  1 through  4 and  8 through  23  are 
referenced  as  external  files  using  the  variables  N1  through  N20  stored 
In  labeled  common  block  TAPES  fsee  Appendix  E,  LABELED  COMMON  TAPES). 
Files  N30  and  N31 , FORTRAN  logical  units  30  and  31,  respectively  are 
used  by  routine  FIFDEF  exclusively  for  passing  data  during  the  iterative 
solution  of  the  modal  response.  File  N23  is  used  as  the  master  output 
file  while  N17  and  N18  are  used  for  the  two  master  input  files.  All 
three  master  input/output  files  formatted  consistent  with  FORMAT  master 
Input/output  matrix  tapes. 


The  code  does  not  key  on  the  FORMAT  tape  or  matrix  names  in  the  input 
files.  Matrix  data  is  identified  by  its  sequential  position  on  the  input 
files.  The  sequence  of  matrix  data  on  the  first  input  file,  N17,  is 
PyF*  MPT,  UQ,  ECT,  m,  k,  c,  F^,  <Jp  cff,  Se^,  EVT,  and  C0NST.  The  sequence 
of  matrix  data  on  the  second  input  file,  N18,  is  «P^^  and  PypTj*  All 
of  these  matrices  are  created  in  the  Initial  Generator  except  for  Pyp, 
5PU)(J,  and  Pyp-j-j  which  are  computed  in  preceding  FORMAT  steps. 
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• Tables  8.1  and  8.2  show  the  use  of  external  files  by  each  of  the 
principle  routines  during  the  initialization  and  solution  processes, 
respectively.  The  routines  are  listed  in  their  execution  sequence.  All 
relevant  data  stored  on  external  files  are  listed  at  the  top.  In  the 
tables,  the  variable  external  file  references  alongside  "IN"  implies  the 
data  is  read  from  that  file  in  the  corresponding  routine.  File  refer- 
ences alongside  "OUT"  imply  the  data  Is  written  to  that  file  in  the 
corresponding  routine. 

The  file  utilization  shown  in  Table  8.1  is  for  a typical  increment 
and  does  not  apply  to  the  first  Increment  which  Includes  some  initiali- 
zation processing  not  shown. 

At  the  end  of  an  Increment,  the  absolute  designations  of  the  external 
files  listed  in  Table  8.2  under  Last  Increment  and  Current  Increment  are 
Interchanged  so  that  the  variable  file  references  remain  unchanged  for 
the  next  increment.  The  files  "flip-flopped"  in  this  manner  are 

N13  and  N14 

N3  and  N19 

N4  and  N5 

N9  and  N10 

During  the  iterative  solution  for  modal  response,  i.e.  looping  through 
routines  EIGS0L  and  FIFDEF,  routine  FIFDEF  passes  the  element  forces  due 
to  fictitious  deformations  on  files  N30  and  N31 . File  N30  contains  ele- 
ment forces  from  the  last  iteration  while  file  N31  is  output  with  element 
forces  from  the  current  iteration.  These  files  are  "flip-flopped"  at 
each  Iteration. 

All  output  to  the  master  file,  N23,  occurs  In  routines  0UTPUT  and 
IMBAL.  The  FORMAT  tape  name  and  modifier  of  the  master  output  is  TAPE,  1 
and  is  written  by  0UTPUT.  A description  of  each  of  the  output  matrices 
Including  the  routine  from  which  they  originate  follows  on  the  next  page. 
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TABLE  8.1.  NONLINEAR  INCREMENTAL  INITIALIZATION  PROCESSING  FILES 


N17,  is  subsequently  used  as  a scratch  file  by  routine  PREBALT  in 
processing  material  nonlinearity.  Consequently,  the  first  master 
input  file  should  always  be  a temporary  file  If  the  original  code 
for  material  nonlinearity  is  reactivated. 


TABLE  8.2.  NONLINEAR  INCREMENTAL  SOLUTION  PROCESSING  FILES 


Routine 

FORMAT 
Matrix  Name 
and  Modifier 

Row  and 
Column 
Dimensions 

Description 

0UTPUT 

C0NST , 1 

30  x 1 

problem  constants 

0UTPUT 

TIME,  1 

NTRVLS  x 1 

incremental  time  history 

0UTPUT 

UZER0,  1 

NJTS  x 3 

original  joint  coordinates 

0UTPUT 

DPBPHI,  1 

NG  x NTRVLS 

incremental  transformed 
applied  loads 

0UTPUT 

PBUPTJ,  1 

NG  x 3*NJTS 

modal  to  joint  T degree  of 
freedom  transform 

IMBAL 

RESPNS,  8 

6*NG  x 1 

modal  response 

IMBAL 

BARS , 8 

4 x NBAR 

bar  element  response 

IMBAL 

MEMBRN,  8 

15  * NMEM 

membrane  element  response 

IMBAL 

CELLS,  8 

54  * NCEL 

cell  element  response 

where  8 

is  the  Increment  number  and 

NBAR,  NMEM,  and  NCEL  are  the  number 

of  bar,  membrane,  and  cell  elements,  respectively.  Note  that  matrices 
BARS,  MEMBRN,  and  CELLS  will  be  present  only  if  the  corresponding  element 
types  are  present  in  the  structural  model.  Also,  the  names  DPBPHI  and 
PBUPTJ  may  vary  since  they  are  user  defined  in  a preceeding  FORMAT  step. 
All  other  matrix  names  shown  above  are  imbedded  in  the  program  code. 

CORE  UTILIZATION 

All  Internal  core  storage  is  within  array  A in  blank  common.  The 
array  is  implicitly  partitioned  by  routine  NITIAL  where  the  beginning 
locations  of  each  partition  are  computed.  These  beginning  locations,  or 
indices,  are  stored  in  labeled  common  block  NDICES.  In  the  allocation 
scheme,  an  overlay  structure  is  used  within  array  A where  a given  space 
is  reused  for  different  data  as  the  solution  process  proceeds.  For 
reference,  the  labeled  coirmon  block  declaration  for  NOICES  is  repeated 
here. 
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COMMON  /NDICES/IVBDB , IVBB , IVBX , IDPBPU , IPBMUB , IDPPUB , IDBL , IVBL 
, IPBAR , IPBPHU , IKB , ICB , IMBAR , IM3ARL , I DEBCL , IC0NST 

, ITIME , ISIGSS 

, IKBL , IZ , ICA , IQ , IVAL , IFTAU , IVEC , I EGSYS 

, IU ,LU , IECT , IEVT , IMPT , IDEBO , IDFBKO , IDSEB 

, IFK,IFBK,IDEL , IDEDL , IFSFB , IFSFB8 , IPBCU 

, IPBKU .ISIGFB .ISIGBH ,IEPSIG,IPSL0N ,ID,IDK 

, ISKB,ISKBB,ISCB,ISCBB,IPBUF,ISK,ITK,ICIB,IMEL 

Each  integer  variable  in  NOICES  is  the  first  location  of  a partition 
in  array  A.  For  example,  A (IVBOB)  and  A (IVBB-1)  point  to  the  first  and 
last  locations  of  the  partition  used  to  store  matrix  v3<  By  definition, 
the  length  of  the  partition  would  be  equal  to  the  number  of  transformation 
modes  NG. 

The  variables  in  NDICES  are  allocated  in  such  a way  as  to  represent 
three  contiguous  members.  The  members  are  from  IVBOB  through  ISIGSS, 
from  IKBL  through  IEGSYS,  and  from  IU  through  IMEL.  The  member  IVBDB 
through  ISIGSS  is  permanently  resident  in  array  A,  while  the  remaining 
two  members  are  effectively  overlaid.  Graphically,  the  overlay  structure 
can  be  shov/n  as 


IVBDB 


ISIGSS 


IKBL 


IU 


IEGSYS 


IMEL 
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TABLE  8.3.  NONLINEAR  INCREMENTAL  SOLUTION  LABELED  COMMON  REFERENCES 


Label ed 

Comon 

Block 

References  by  Routine 

NO ICES 

RESPNS,  AVRAGE,  CHK0UT,  CHKPNT,  EIGS0L,  FIFDEF,  F0RMAT,  GE0M, 
IMBAL,  NDXSET,  NITIAL,  0UTPUT,  P0LS0L,  PBARUF,  PREBAL,  PREBGM, 
PREBGU,  PREBLL , PREBST,  PREEIG,  PTMASS,  READK 

LIMITS 

RESPNS,  AVRAGE,  CHK0UT,  CHKPNT,  EIGS0L,  FIFDEF,  F0RMAT,  IMBAL, 
NDXSET,  NITIAL,  NKRK,  0UTPUT,  PBARUF,  P0LS0L,  PREBAL,  PREBGM, 
PREBGU,  PREBLL,  PREBST,  PREEIG,  PTMASS,  READK 

TAPES 

RESPNS,  CHKPNT,  EIGS0L,  FIFDEF,  IMBAL,  NITIAL,  0UTPUT,  PBARUF, 
PREBAL,  PREBGM,  PREBGU,  PREBLL,  PREBST,  PREEIG,  PTMASS,  READK 

LPEM 

CHKPNT,  LPBG,  LPCFFB,  LPCG,  LPCSFB,  LPMFFB,  LPMG,  LPMSZD,  LPMS1 
LPMS2,  0UTPUT,  PREBAL,  PREBGM,  PREBGU,  PREBLL,  PREBST 

FICNDX 

CHK0UT,  EDGUNV , FIFDEF,  GE0M,  NKRK 

GE0MS 

EDGUNV,  FIFDEF,  GE0M,  LPBFIC,  LPCFIC,  LPMFIC 

CRRAYS 

AVRAGE,  CHK0UT,  FIFDEF,  NKRK 
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where  the  vertical  positioning  implies  relative  location  In  array  A and 
IVBDB  starts  at  AO).  The  member  IKBL  through  IEGSYS  is  used  exclusively 
by  routine  EIGS0L  for  the  eigen  problem  solution.  Member  IU  through  IMEL 
Is  used  by  all  other  parts  of  the  program. 

The  actual  allocation  in  the  present  code  deviates  from  this  scheme 
In  that  the  partition  associated  with  IU  has  been  moved  to  the  end  of  the 
permanently  resident  member  IVBDB  through  ISIGSS.  This  was  done  so  that 
the  joint  coordinate  data  would  be  permanently  core  resident. 

There  are  six  other  labeled  common  blocks  used  by  the  program,  LIMITS, 
TAPES,  LPEM,  FICNDX , GE0MS,  and  GRRAYS.  Detailed  descriptions  of  each 
conmon  block  are  given  in  Appendix  E.  Table  8.3  lists  each  of  the  common 
blocks  and  all  routines  which  reference  them. 

LIMITATIONS 

Sufficient  space  must  be  available  in  blank  conmon  array  A to 
accommodate  the  problem.  The  size  of  array  A required  for  a given  problem 
Is  a function  of  many  parameters.  The  dimensioned  size  of  array  A Is 
8000  which  Is  stored  in  variable  NW0RK  and  initialized  by  routine  NITIAL . 
Larger  sizes  can  be  defined  by  Inputting  the  appropriate  value  of  NW0RK 
on  the  first  input  data  card  which  is  read  by  NITIAL. 

The  size  of  NW0RK  must  be  sufficient  to  satisfy  the  following 
relationships 


NW0RK 

NW0RK 

where 


> 1200  + 5NM  + 27 NG  + NELEMS  + NTRVLS  + 3NJTS  + 8NG2 

> 6700  + 5NM  + 113NG  + NELEMS  + NTRVLS  + 4NJTS  + NUM 

NG  is  the  number  of  transformation  modes 

NM  -(NG2  + NG)/2 

NELEMS  is  the  number  of  physical  elements  (excludes  point 
mass  elements) 
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NTRVLS  Is  the  number  of  time  Increments 

NJTS  is  the  number  of  joints 

and  NUM  is  the  length  of  the  MPT  record  (row  dimension 

of  matrix  MPT) 


FUTURE  DEVELOPMENT 

In  the  preceding  description  of  the  final  version  of  the  Nonlinear 
Incremental  Solution,  a number  of  processing  operations  designed  for  the 
original  theoretical  approach  were  not  discussed.  These  will  be  covered 
here  as  a guide  In  future  development,  provide  more  insight  to  the 
code  as  It  exists,  and  to  promote  salvaging  of  code  where  possible. 

The  modifications  necessary  to  progress  from  the  original  version  of 
the  code  to  the  final  version  were  grouped  into  three  UPDATE  steps. 

Table  8.4  lists  each  of  the  decks  modified  in  each  of  the  three  steps  as 
well  as  the  UPDATE  identification  name  associated  with  subsets  of  these 
modifications.  A description  of  the  changes  made  is  also  provided.  These 
modifications  are  a mixture  of  corrections  to  errors,  supplements  to 
capability,  changes  in  order  to  implement  the  final  approach  to  geometric 
nonlinearity,  and  deletions  of  some  material  nonlinearity  code. 

In  order  to  preserve  the  original  design  concepts  and  provide  a record 
of  program  development,  the  original  source  code  and  the  three  sets  of 
deck  modifications  as  well  as  the  final  source  code  have  been  included  as 
part  of  the  program  delivery  to  the  contractor. 


Applicability  of  Original  Design  Concepts 

In  order  to  understand  the  Nonlinear  Incremental  Solution  code  in  its 
final  form,  some  background  information  regarding  the  original  theoretical 
approach  Is  necessary. 

The  original  theoretical  approach  to  geometric  nonlinearity  was  to 
scale  the  linear  Incremental  model  response  by  a factor  a computed  as 
a function  of  fictitious  force  and  deformation  effects  during  the  Increment 
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TABLE  8.4.  ROUTINES  MODIFIED  DURING  NONLINEAR 
INCREMENTAL  SOLUTION  DEVELOPMENT 


STEP 

♦IDENT 

DECK 

DESCRIPTION 

CHK 

FIFDEF 

GE0M 

AVRAGE 

NKRK 

Suppress  Intermediate  printing  from 
fictitious  force  module  designed  into  code 
for  check  out  purposes  only. 

FIXUP 

CHK0UT 

FIFDEF 

AVRAGE 

NDICES 

ARRAYS 

LPBFIC 

VECT 

Error  corrections  for  fictitious 
force  module. 

1 

L 

ERRPRT 

FIFDEF 

GE0M 

EDGUNV 

LPBFIC 

AVRAGE 

Delete  Intermediate  printing  from 
fictitious  force  module  Introduced  into 
code  for  debugging  during  initial  testing. 

TEMPI 

RESPNS 

IMBAL 

PJBLS0L 

PREEIG 

READK 

NITIAL 

HALT 

- 

Add  routine  HALT,  modify  intermediate 
printing,  error  corrections,  and  modify 
imbalance  test. 

TEMP2 

PREMBAL 

IMBAL 

EIGS0L 

Modify  intermediate  printing.  Introduce 
output  data  for  Intermediate  postprocessor, 
and  delete  portion  of  code  In  PREBAR  rela- 
tive to  material  nonlinearity. 

TABLE  8.4.  ROUTINES  MODIFIED  DURING  NONLINEAR 

INCREMENTAL  SOLUTION  DEVELOPMENT  (Continued) 


1 


l 


I 


(see  History  of  Development  at  the  beginning  of  this  section).  No 
processing  of  an  iterative  nature  was  involved  here.  However,  in  account 
ing  for  material  nonlinearity,  a second  iteration  through  the  entire 
incremental  solution  process  was  required.  For  this  solution,  average 
modal  stiffness  and  damping  matrices,  K and  C,  were  used.  The  averaging 
was  done  using  the  initial  K and  C matrices  at  the  beginning  of  the 
increment  and  the  K and  C computed  at  the  end  of  the  first  iteration 
which  Included  the  effects  of  changes  in  the  material  properties  of  any 
elements  due  to  plasticity  and  the  failure  of  any  elements  that  occurred 
In  the  first  solution.  The  criteria  for  determining  the  necessity  of 
this  second  iteration  was  the  equilibrium  imbalance  test  at  end  of  the 
first  solution. 

For  the  second  iterative  solution,  some  data  computed  in  the  first 
Iteration  was  passed  on  external  files  since  it  did  not  require  regene- 
ration. This  Included  the  element  stiffness  and  damping  matrices  and 
some  geometric  data  based  on  Initial  geometry  for  the  Increment  generated 
for  the  computation  of  fictitious  forces  and  deformations. 

In  the  code,  the  variable  denoting  that  the  second  Iterative  pass  is 
being  processed  is  called  BET8AR  for  J . This  flag  is  used  to  control 
which  operations  of  the  complete  solution  process  are  to  be  executed  dur- 
ing the  second  Iteration.  Array  A (IDEBCL),  which  Is  core  resident,  is 
used  to  flag  those  elements  that  fail  during  the  solution  process.  This 
array  Is  primarily  used  to  store  the  dissipated  damping  energy  due  to 
temperature  change  in  each  element,  6ECL  (always  positive).  Elements 
which  had  failed  during  previous  Increments  were  flagged  by  a -10  and 
elements  falling  during  the  current  Increment  were  flagged  as  -1.  The 
values  in  array  A (IDEBCL)  are  tested  at  various  points  in  the  code  to 
detect  failed  elements  and  omit  processing  for  such  elements. 

The  input  matrix  EVT  was  intended  as  a data  file  for  those  element 
parameters  which  may  vary  during  the  solution  process.  These  parameters 
Included  element  temperature,  current  material  properties,  stress/strain 
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state  in  terms  of  equivalent  stress  and  stress,  increment  at  which  last 
update  occurred,  increment  at  which  element  failed,  etc. 

The  allocation  of  all  data  to  external  files  for  this  original  program 
design  Is  given  in  Table  8.5.  The  following  data  quantities  listed  In 
the  table  are  redefined  here  for  clarification. 


D - 

*UF  FF 

OK  ■ 

D ic 

FK  - 

K , + 

3-1  o 

Cl  * 

Dc‘Dt 

°o‘Gf  S 

geometric  data  for  the  generation  of 
fictitious  forces  and  deformations 

where  each  of  the  above  is  computed  individually  for  each  element. 

Table  8.6  shows  the  intended  use  of  these  files  during  a typical 
increment  of  the  solution  process.  Certain  Initializing  operations  are 
performed  in  the  first  increment  which  are  not  shown  here.  The  20  exter- 
nal files  used  are  listed  across  the  top  while  the  major  modules  appear 
In  their  execution  sequence  at  the  left. 

This  Information  should  provide  more  insight  to  the  code,  the 
reasoning  behind  some  operations  still  present  there,  and  reduce  the 
effort  required  for  future  modifications.  The  basic  design  features  of 
this  program  enhance  Its  adaptability  to  changes  in  methodology.  These 
features  Include  the  library  of  utility  routines  to  perform  a wide  variety 
of  Incore  matrix  operations  and  the  partitioning  of  blank  common  for 
required  array  space. 

Some  other  features  of  the  code  which  should  be  pointed  out  are  the 
Intermediate  print  capabilities  in  routines  CHK0UT  and  CHKPNT.  Routine 
CHK0UT  Is  used  exclusively  in  the  FIFDEF  module  to  output  intermediate 
calculations  at  various  predetermined  points  in  the  computations.  • In 
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TABLE  8.5.  NONLINEAR  INCREMENTAL  SOLUTION  ORIGINAL 
DESIGN  FILE  ALLOCATION 


Increment 


Resident  Data 


(Dr  1-l.NELM),  (Oo^Gf  . 1-l.NELM) 


(Fk.,  i«1 ,NELM) 


(OKr  UT,,  FKr  1-l.NELM) 


(a^,  5F^,  i-l.NELM) 


(DK.,  i-1 ,NELM) 


(<J 


(«er  «er  1=1  ,NELM 


(«er  6er  1-l.NELM) 


(EVTr  i-l.NELM),  (c.,  i-l.NELM) 


(PUF  . 1-l.NELM) 


(ECT-f , 1-l.NELM),  MPT 


(Fp  . i=l ,NELM) 


($F„  , 1-l.NELM) 

<oi 


(cg  . 1-l.NELM),  U 


^AVE,’  CAVE(’  1“1 .NELM) 


Note:  NELM  * number  of  physical  elements 

(excludes  point  mass  elements) 


Notes:  C denotes  core  resident 

N denotes  reed 

M denotes  write 

DU  denotes  rewind 


the  original  design  source  code,  calls  were  made  to  this  routine  to 
Initiate  printing.  As  noted  in  Table  8.4,  many  of  these  calls  which 
were  eliminated,  can  be  reactivated  for  checkout  purposes.  Routine  CHKPNT 
Is  called  exclusively  by  routine  PREBAL  at  preset  points  in  the  code. 
Depending  on  an  array  of  flags  in  routine  CHKPNT  corresponding  to  each 
of  these  points  in  routine  PREBAL,  specific  arrays  are  output  to  aid  In 
debugging  the  solution  process.  The  actual  printing  in  this  instance  is 
done  by  routine  PL0P,  a general  print  routine  for  any  real  or  integer 
array. 

Design  and  Functional  Improvements 

Even  though  the  current  version  of  the  code  and  its  approach  may  not 
be  the  ultimate  method  adopted  for  geometric  nonlinearity,  the  redundan- 
cies and  Inefficiencies  now  present  and  planned  strategies  for  implemen- 
tation of  material  nonlinearity  should  be  discussed  so  that  they  be  con- 
sidered in  any  future  development  effort. 

Obviously,  all  unnecessary  code  relative  to  original  theoretical 
approach  should  be  eliminated.  This  includes  all  calculations  relative 
to  a and  passing  of  certain  data  on  external  files.  That  data  identified 
In  Tables  8.1  and  8.2  is  the  only  data  presently  required  for  the  incre- 
mental solution.  All  other  data  processing  on  external  files  in  the  final 
code  is  unnecessary.  Some  routines  included  in  the  source  code  of  the 
final  version  are  no  longer  used,  i.e.  F0RMAT  and  P0LS0L. 

In  the  iterative  solution  for  geometric  nonlinearity,  routine  EIGS0L 
recomputes  the  eigenvalues  and  eigenvectors  of  the  A matrix  at  each 
iteration.  This  Is  unnecessary  since  the  A matrix  is  constant  during 
the  Iteration.  Only  that  part  of  the  transformed  load  matrix  due  ficti- 
tious forces  and  deformations  changes  at  each  iteration  necessitating  the 
solution  of  only  those  modal  response  equations  which  Involve  the  load 
matrix  P . 
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Further,  in  the  last  iteration  for  geometric  nonlinearity,  routine 
FIFDEF  need  only  recompute  the  final  element  forces  FK  which  are  a func- 
tion of  the  input  data  to  FIFDEF  from  EIGS0L.  The  calculations  for  fic- 
titious force  and  deformation  effects  in  FIFDEF  are  unnecessary  since 
their  only  use  Is  as  input  to  routine  EIGS0L  which  will  not  be  called 
again  for  the  current  Increment. 

That  portion  of  code  In  routine  PREBAL  relative  to  material  nonlinearity, 
which  was  deleted  in  modification  step  1 under  * I DENT  TEMP2  in  Table  8.4, 
contained  computations,  logic,  file  processing,  and  calls  to  routines 
consistent  with  the  original  design  for  material  nonlinearity.  Included 
In  this  sequence  of  code  is  a call  to  routine  PREBST.  This  routine  was  to 
be  the  executive  routine  for  the  updating  of  element  material  properties 
and  regeneration  of  element  stiffness  and  damping  matrices.  Under  control 
routine  PREBST,  the  stress/strain  state  of  the  element  would  be  computed 
and  tested  to  determine  whether  or  not  regeneration  of  stiffness  and 
damping  were  necessary.  The  testing  would  be  based  on  the  amount  of 
change  in  the  following  parameters  since  the  element  was  last  updated. 

1)  Temperature  - recompute  material  properties 

2)  Equivalent  stress  in  plastic  range  - recompute  Young's 
Modulus,  E 

3)  Equivalent  strain  - use  new  element  geometry. 

At  this  point  in  the  processing  sequence,  the  data  necessary  for 
testing  and  regeneration  would  be  available  from  the  following  sources: 

1)  Array  A(IDEBCL),  which  is  core  resident,  would  identify 
previously  failed  elements. 

2)  Matrix  MPT,  the  core  resident  array  of  material  property 
coefficients,  would  be  used  to  compute  new  material  properties 
as  a function  of  temperature. 
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3)  Array  A(IEVT),  which  Is  core  resident,  would  provide  element 
material  properties  and  other  data  parameters  from  the  time 

of  last  update,  e.g.  temperature,  equivalent  stress/straln,  etc. 

4)  Current  element  geometry  would  be  available  In  core  from  the 
previous  execution  of  routine  PREBGM. 

The  following  new  code  and  modifications  would  be  required  in  order 
to  make  this  approach  to  element  updating  operational. 

1)  All  necessary  data  is  currently  available  with  the  exception  of 
some  data  in  array  A(IEVT),  e.g.  increment  number  of  last  update, 
temperature  at  time  of  last  update,  change  in  temperature  since 
last  update,  equivalent  stress/strain  at  time  of  last  update,  etc. 

2)  Routine  PREBST,  which  is  a dummy  routine  In  the  original  version 
of  the  source  code,  has  to  be  designed  and  coded  as  do  the  rou- 
tines required  for  the  testing  to  determine  if  updating  is 
necessary.  Routine  PREBST  calls  the  testing  routines  and,  if 
necessary,  calls  the  regeneration  routines. 

3)  Those  routines  necessary  for  the  actual  computation  of  new 
material  properties  and  the  regeneration  of  the  compliance, 
stiffness,  and  damping  matrices  must  be  provided.  Nearly  all 
these  routines  are  available  from  the  Initial  Generator.  The 
routines  for  generation  of  element  geometry  (routines  LPBG, 

LPMG,  LPMFFB,  etc., under  rou.ine  PREBGM  In  Figure  8.1)  were  also 
obtained  from  the  Initial  Generator  and  Implemented  in  a manner 
simulating  the  program  structure  of  the  Initial  Generator.  This 
was  done  in  anticipation  of  implementing  the  other  Initial 
Generator  routines  for  compliance,  stiffness,  and  damping  matrix 
regeneration. 


SECTION  IX 
POSTPROCESSOR 

OVERVIEW 

This  program  accepts  output  data  from  the  linear  Incremental  or 
nonlinear  Incremental  solution  and  selectively  prints  data  according  to 
user  Input  criteria.  The  card  input  prepared  by  the  user  is  described 


In  Part  2 of  this  report.  The  format  of  the  output  data  from  either 
linear  or  nonlinear  incremental  solution  is  described  in  Section  VII 
of  Part  3.  Detailed  descriptions  of  each  routine  and  labeled  common 
block  in  this  program  are  given  In  Appendix  F of  this  document. 


The  core  required  by  this  program  without  the  use  of  overlay  or 
segmentation  is  60000  octal  words.  In  addition  to  the  system  Input/ 
output  files  5 and  6,  three  external  files  are  required.  These  three 
files,  referenced  as  integer  variables  ITP1 , ITP2,  and  ITP3,  are  used 
for  program  generated  selection  tables.  Incremental  solution  input  data, 
and  selected  partitions  of  input  matrix  PBUPT,  respectively.  Organiza- 
tion of  all  routines  in  this  program  is  shown  below.  Labeled  common  blocks 


are  shown  in  parentheses. 


POST 

(INDEX) 

(PARM) 


READC 

EUTL9 

ZER0 


INITl 

. P0UT 

CRDIN 

SELCT 

CHKIN 

PBUPT  BLKIN 

SKPALL  J0INTS 
JNTPR 

M0DES 

BARS 

EBAR 

MEMS  CELLS 
EMEM 

A singularly  dimensioned  array  A in  blank  common  is  used  for  all 
data  storage.  Two  labeled  common  blocks,  PARM  and  INDEX,  are  used  by 
the  program.  PARM  is  used  to  store  problem  parameters  from  input  matrix 
C0NST  as  well  as  program  generated  selectivity  flags.  INDEX  is  used 


to  store  beginning  locations  or  indices  of  partitions  within  blank 
common  array  A. 

All  initialization  takes  place  under  routine  1NITL.  Initialization 
consists  of  allocating  array  space,  processing  all  card  input,  assem- 
bling selection  tables  for  joints,  bars,  membranes,  and  cells,  assembling 
required  partitions  of  input  matrix  PBUPT,  and  initializing  line  headers 
and  print  flags  for  the  forces,  stresses,  strains,  and  equivalent 
stresses  for  each  type  of  element. 

. Routine  INITL  reads  matrices  C0NST,  TIME  and  UZER0  from  file  ITP2 
and  stores  this  data  In  core.  Array  space  is  then  allocated  followed 
by  a call  to  routine  CRDIN  to  process  all  card  Input  data.  Matrix 
DPBPHI  is  read  over  by  routine  INITL  as  is  matrix  PBUPT  If  no  joint 
data  is  requested  for  printing.  If  joint  data  is  requested,  matrix 
PBUPT  Is  read  and  processed  by  routine  PBUPT.  Routine  BLKIN  Is  then 
evoked  to  initialize  all  line  headers  and  print  flags  for  each  type 
element. 

Routine  P0UT  calls  routine  SKPALL  to  read  over  all  data  for  an 
Increment  if  no  data  for  the  increment  is  to  be  printed.  Otherwise, 
routines  J0INTS,  M0DES,  BARS,  MEMS,  and  CELLS  are  invoked  in  sequence 
to  process  their  respective  data.  Routine  J0INTS  reads  matrix  RESPNS 
from  file  ITP2,  the  joint  selection  table  from  file  ITP1 , and  the  part- 
itions of  matrix  PBUPT  from  file  ITP3.  Routines  BARS,  MEMS  and  CELLS 
read  their  corresponding  selection  tables  and  matrices  from  ITP1  and 
ITP2,  respectively. 

FILE  UTILIZATION 

All  card  input  is  read  from  file  5.  All  printed  output  is  written 
to  file  6.  The  three  scratches  files  required,  ITP1 , ITP2  and  ITP3, 
are  initialized  in  the  main  program  as  files  1,  2 and  3,  respectively. 
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File  ITP1  is  used  to  store  joint,  bar,  membrane,  and  cell  selection 
tables.  A selection  table  is  assembled  and  written  to  ITP1  only  if 
that  type  data  exists  In  the  model  and  at  least  one  of  the  subsets  of 
that  type  data  has  been  requested  for  printing.  Routine  SELCT  reads 
the  card  input  for  the  selection  tables  which  are  present,  assembles 
the  table  accordingly,  and  writes  the  table  onto  ITP1 . 

File  ITP2  contains  the  Incremental  solution  output  data  consisting 
following  F0RMAT  matrices: 

C0NST  Matrix  of  problem  constants 

TIME  Matrix  of  incremental  time 

UZER0  Matrix  of  original  joint  coordinates 

DPBPHI  Matrix  of  incremental  loads 

PBUPT  Modal  to  T degree  of  freedom  transformation  matrix 

and  for  each  Increment: 

RESPNS  Modal  response  matrix 

BARS  Bar  element  response  matrix 

MEMBRN  Membrane  element  response  matrix 

CELLS  Cell  element  response  matrix 

If  bar,  membrane,  or  cell  element  data  does  not  exist  in  the  modal, 
the  corresponding  matrix  will  not  be  present  in  the  incrmental  solu- 
tion output. 

File  ITP3  is  used  to  store  partitions  of  matrix  PBUPT.  Routine 
PBUPT  assembles  the  partitions  according  to  the  joints  selected  for 
printing  coordinate,  displacement,  velocity,  and/or  acceleration  data. 

CORE  UTILIZATION 

All  array  space  Is  allocated  Into  a singularly  dimensioned  blank 
common  array  A.  The  beginning  location  of  each  partition  within 
array  A is  stored  in  labeled  common  block  INDEX.  Labeled  common  block 


i 
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PARM  is  used  to  store  problem  parameters  and  print  selection  flags. 
Both  labeled  common  blocks,  PARM  and  INDEX,  are  used  by  all  principle 
routines. 

Some  of  the  more  pertinent  problem  parameters  stored  In  labeled 


ion  block  PARM 

are  described  below. 

NJTS 

number  of  joints 

NBARS 

number  of  bars 

NMEMS 

number  of  membranes 

NCELS 

number  of  cells 

NM0DS 

number  of  modes 

NTVLS 

number  of  time  intervals 

LIMITATIONS 

Sufficient  space  must  be  available  In  blank  common  array  A to 
accommodate  the  problem.  The  size  of  array  A required  for  a given 
problem  is  a function  of  the  problem  parameters  stored  in  labeled 
common  block  PARM.  If  IW0RK  is  the  length  of  array  A,  and  defining 
as 

6*NM0DS  s L1  > 60 

and  L2  as  the  larger  of  NJTS,  NBARS,  NMEMS , and  NCELS,  then 
I W0RK  2 640  + L1  + l2  + 2*NTVLS  + 3*NJTS  + 3*NM0DS 

The  Integer  IW0RK  Is  the  first  word  of  blank  common  and  Is  equal 
to  the  size  of  array  A In  blank  common.  The  Integers  ILNMAX  and 
ICLMAX  are  stored  In  labeled  common  block  INDEX  and  are  equal  to  the 
maximum  number  of  lines  and  columns  printed  on  each  page.  These 
three  variables,  IW0RK,  ILNMAX  and  ICLMAX,  are  initialized  to  10000, 
60,  and  8,  respectively.  However,  the  user  may  override  these  values 
on  the  first  Input  card  provided  the  following  is  true  of  the  user 
specified  values: 
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SECTION  X 

PROJECTED  IMPROVEMENTS 


EFFICIENCY 

The  following  modifications  to  the  final  version  of  the  program  code 
are  recommended  in  order  to  reduce  the  machine  resources  required  for 
execution  and  to  reduce  execution  time. 

1)  Increase  the  dimensioned  size  of  the  arrays  In  labeled  common 
blocks  J0RT  and  WRK  in  the  Initial  Generator  so  that  they  take 
advantage  of  the  available  space  defined  by  labeled  common  blocks 
ED0F  and  ISEQ,  respectively  (see  Section  V,  LIMITATIONS). 

2)  Where  possible,  take  advantage  of  symmetry  in  the  generation  of  k, 

s,  m and  e in  the  Initial  Generator. 
a 

3)  Use  SEGL0AD  in  the  implementation  of  the  Linear  and  Nonlinear 
Incremental  Solution  programs. 

4)  Delete  excess  files  declared  in  the  PROGRAM  statements  of  the 
Linear  and  Nonlinear  Incremental  Solution  programs. 

5)  Delete  unnecessary  copies  of  master  Input  data  to  scratch  files  in 
routine  MATIN  of  the  Linear  and  Nonlinear  Incremental  Solution 
programs . 

6)  In  the  Linear  Incremental  Solution,  eliminate  the  allocation  of  space 
for  the  joint  coordinate  data  since  it  is  not  required. 

7)  Eliminate  all  unnecessary  processing  in  the  Nonlinear  Incremental 
Solution  program  left  over  from  the  original  design  (see  Section 
VIII,  FUTURE  DEVELOPMENT). 

8)  Eliminate  all  unnecessary  printing  from  the  Nonlinear  Incremental 


Solution  program  left  over  from  program  check  out. 

9)  Provide  the  logic  and  processing  commands  to  store  joint  coord- 
inate data  on  an  external  file  during  the  eigen  problem  solution 
(EIGS0L)  In  the  Nonlinear  Incremental  Solution. 

10)  Perform  the  functions  of  routine  PREEIG  (regeneration  of  K,  C) 
in  routine  PREBAL  of  the  Nonlinear  Incremental  Solution. 

EXTENDED  CAPABILITY 

The  following  modifications  to  the  final  version  of  the  program  code 
are  recommended  in  order  to  extend  basic  capabilities  already  in  existance. 

1)  Development  convergence  criteria  and  necessary  code  to  end  the 
iteration  process  through  routines  EIGS0L  and  FIFDEF  for  geometric 
nonlinearity  in  the  Nonlinear  Incremental  Solution  program. 

2)  Introduce  the  cosine  load  variation  or  impedence  matrix  to  the 
Linear  Incremental  Solution  program. 

3)  Modify  the  processing  matrix  5iT  in  routine  PREEIG  of  the  Nonlinear 
Incremental  Solution  to  account  for  the  fact  that  sij  Is  presently 
assumed  constant. 

Introduction  of  additional  capabilities  to  the  Nonlinear  Incremental 
Solution  such  as  material  nonlinearity  and  restart  will  be  contingent  on 
theoretical  development.  Guidelines  for  program  modifications  to  acco- 
mmodate material  nonlinearity  are  discussed  In  Section  VIII  under  FUTURE 
DEVELOPMENT.  In  this  particular  area,  consideration  should  be  given  to  the 
use  of  random  access  files  for  external  storage  of  matrices  k,  c,  6ij , and 
EVT  In  element  partitions.  This  would  provide  for  rewriting  these  matrices 
only  for  those  elements  whose  properties  change  rather  than  for  all  elements 
as  the  present  design  requires. 
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APPENDIX  A 


LAMINATE  GENERATOR  ROUTINES 

This  appendix  contains  detailed  descriptions  of  all  routines  In  this 
program.  Table  A gives  page  number  references  within  this  document  for 
documentation  of  each  routine. 

The  detailed  description  of  each  routine  Is  divided  Into  the  following 
subheadings: 

Algorithm 
Input/Output 
Argument  list 
Labeled  Common 
Subroutines  Called 
Error  Detection 


verbal  flow  chart  of  routine  logic  and  data  flow 

description  of  all  external  data  set  input/output 

name,  type,  and  description  of  each  argument 

list  of  all  labeled  common  blocks  declared 

list  of  all  routines  called 

description  of  tests  made  for  errors  and  action 
taken 
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TABLE  A.  INDEX  TO  LAMINATE  GENERATOR  ROUTINES 

Page 


MAIN  PROGRAM  LAMGEN 116 

FUNCTION  ABSVAL  118 

SUBROUTINE  CELGEN  119 

SUBROUTINE  CR0SSQ  121 

FUNCTION  D0T 122 

SUBROUTINE  I0XS 123 

SUBROUTINE  JTGEN  124 

SUBROUTINE  RIDCEL  126 

SUBROUTINE  RJ0INT  128 

SUBROUTINE  RLAYER  130 

SUBROUTINE  RTVARI  132 

SUBROUTINE  UVEC 134 

SUBROUTINE  WCELL . 135 

SUBROUTINE  WJ0INT  136 

SUBROUTINE  WN0RM  137 
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MAIN  PROGRAM  LAMGEN 

The  main  program  allocates  core  and  calls  the  Input,  calculation, 
and  output  subroutines. 

Algorithm 

Two  arrays  are  set  up  — A and  N — and  every  element  in  the  A 
array  is  initialized  to  1030.  The  first  subroutine  called  is  I0XS  to 
read  and  write  Data  Code  2 data  (if  any).  The  next  subroutine  called 
is  RLAYER.  The  element  and  joint  numbering  increments  read  by  this  sub- 
routine are  required  by  MAIN  to  allocate  sufficient  core  for  generated 
cell  and  joint  data.  The  message 
‘LAYERS  READ  NO.  LAYERS  * nnnn' 

is  printed  after  a successful  return  from  RLAYER.  The  call  to  RIDCEL 
is  next.  The  number  of  quadrilaterals  and  the  joint  numbers  of  their 
corners  read  in  by  this  subroutine  are  required  to  allocate  sufficient 
core  to  contain  the  generated  joint  data.  After  calculating  the  total 
number  of  cells  that  will  have  to  be  handled  the  message 
'CELLS  HAVE  BEEN  READ  NO.  CELLS  = nnnnn  NO.  QUADS  * nnnnn' 
is  printed.  The  subroutine  that  reads  the  joint  data,  RJ0INT,  is  called 
next,  and  after  the  largest  joint  number  to  be  handled  is  calculated, 
the  message 

'JOINTS  HAVE  BEEN  READ  NO.  JOINTS  * nnnnn' 

is  printed.  The  subroutine  CELGEN,  called  next,  sets  up  an  array  of 
quadrilateral  corner  joint  numbers  required  by  RTVARI  and  JTGEN, 
which  are  called  next.  The  subroutines  WJ0INT,  WN0RM,  and  WCELL  follow, 
with  calls  to  I0XS  interspersed  to  keep  the  numerical  order  of  the  Data 
Codes  on  the  output  files  intact. 

Input/Output 

There  is  no  input,  all  output  is  printed  on  file  6. 

Argument  List 
None 
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Labeled  Common 
None 

Subroutines  Called 

I0XS,  RLAYER,  RIOCELL,  RJ0INT , CELGEN,  RTVARI , JTGEN,  WJ0INT,  WN0RM, 
WCELL 

Error  Detection 

If  an  error  flag  is  received  front  one  of  the  reading  subroutines 
(RLAYER,  RIDCEL,  or  RJ0INT)  indicating  necessary  data  was  not  read, 
the  message 
'JOB  TERMINATED' 

is  written  and  execution  of  the  program  is  stopped. 


FUNCTION  ABSVAL 


This  routine  finds  and  returns  the  length  of  a vector. 

Algorithm 

The  three  components  of  the  input  vector  are  squared,  the  square 
root  of  the  sum  of  the  squares  is  the  length  of  the  vector. 

Input/Output 

None 

Argument  List 

C A real  array  of  components  of  a vector 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  CELGEN 


This  routine  generates  the  data  required  to  form  the  cells  of  the 
laminate  and  sets  up  an  array  of  joint  numbers  that  correspond  to  the 
corners  of  quadrilaterals. 

Algorithm 

Data  for  the  cells  is  generated  for  a stack  of  cells  under  each 
quadrilateral,  one  stack  at  a time.  First,  the  stress  orientation  angle  and 
material  number  for  each  cell  in  the  stack  are  stored  in  the  cell  array. 
Then,  for  each  corner  of  the  quadrilateral,  the  number  of  the  joint  at 
the  corner  is  stored  in  an  array  in  numerical  order  (i.e.,  no  duplication 
of  joint  numbers),  a cross  product  is  formed  of  the  two  sides  of  the  quad- 
rilateral forming  the  corner,  a quarter  of  the  magnitude  of  which  is 
added  to  the  running  sum  in  the  area  array  for  that  joint,  and  the  unit 
vector  of  which  is  added  to  a running  sum  in  the  surface  normal  array, 
and  finally,  the  numbers  of  the  joints  in  the  stack  and  stored  in  the 
cell  array  in  the  correct  location  for  each  cell  in  the  stack.  The  joint 
coordinates  in  the  stack  are  checked  to  see  if  any  of  the  joints  has  been 
already  defined  by  the  user.  If  a user-defined  joint  does  exist  below 
the  quadrilateral  corner,  the  joint  number  of  the  corner  is  made  negative 
as  an  indicator  for  later  subroutines  (JTGEN  & RTVARI). 

Input/Output 

None 

Argument  List 
VJ0INT 

IDCELL 

ZETA 


A real  array  of  coordinates  of  joints  stored  by  joint 
number 

An  integer  array  of  numbers  of  the  joints  on  the  eight 
corners  and  the  material  number  of  each  cell,  stored  by 
cell  number 

A real  array  of  stress  orientation  anales 


ML 


An  Integer  array  cell  number  increments,  joint  number 
increments,  and  material  number  of  each  layer 


J0INTP  An  integer  array  of  joint  numbers  corresponding  to  the 

corners  of  quadrilaterals,  stored  in  numerical  order 

JQUADP  An  integer  array  of  numbers  of  cells  that  have  only  four 

defined  corners  (quadrilaterals)  stored  in  order  in  which 
they  were  read 

VN0RM  A real  array  of  running  sums  of  unit  vectors  at  each  quad 

ri lateral  corner,  stored  in  the  same  order  as  the  joints 
in  O0INTP 

AREA  A real  array  of  areas  associated  with  the  joints  on 

the  quadrilateral  corners 

NJ0INT  An  integer  scalar  defining  the  total  number  of  joints 

NJT  An  integer  scalar  defining  the  number  of  joints  that 

define  quadrilateral  corners 

NCELLS  An  integer  scalar  defining  the  total  number  of  cells 

NQUAD  • An  integer  scalar  defining  the  number  of  quadrilaterals 

NL  An  Integer  scalar  defining  the  number  of  layers 

Labeled  Common 

None 

Subroutines  Called 

CR0SSQ,  UVEC,  ABSVAL 

Error  Detection 

None 
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SUBROUTINE  CR0S3Q 

This  routine  forms  and  returns  the  cross  product  of  two  input  vectors. 
Algorithm 

The  mathematics  of  forming  a cross  product  are  performed  and  the 
resultant  returned  through  the  argument  list. 

Input/Output 
None 

Argument  List 
U 
V 
W 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 


A real  array  for  the  first  input  vector 
A real  array  for  the  second  input  vector 
A real  array  for  the  resultant  vector 
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FUNCTION  D0T 


This  routine  calculates  the  dot  product  of  two  Input  vectors. 

A1 qorithm 

The  pairs  of  x,  y,  and  z components  of  the  two  Input  vectors  are 
multiplied  and  added. 

Input/Output 
None 

Argument  List 
U 
V 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 


A real  array  for  the  first  vector 
A real  array  for  the  second  vector 


None 


SUBROUTINE  I0XS 

This  routine  reads  selected  data  and  directly  writes  it  back  out  on 
files  6 and  JTAPE. 

Algorithm 

Given  beginning  and  ending  Data  Code  numbers  for  a series  of  Data 
Codes,  all  data  with  Data  Codes  in  the  series  is  read  from  ITAPE  and 
written  in  the  same  order  on  file  6 and,  if  JTAPE  + 6,  on  file  JTAPE. 

Input/Output 

Input  is  read  from  file  ITAPE;  output  is  written  on  files  6 and 
JTAPE. 

Argument  List 
ITAPE 
JTAPE 

JC0DE 
LC0DE 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 


An  integer  scalar  defining  the  number  of  the  input  file 

An  integer  scalar  defining  the  number  of  one  of  the  out- 
put files 

An  integer  scalar  defining  the  starting  Data  Code  number 
An  integer  scalar  defining  the  ending  Data  Code  number 
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SUBROUTINE  JTGE.N 


This  routine  generates  the  joint  coordinates  for  the  joints  in  the 
laminate. 

Algorithm 

The  first  step  is  to  unitize  the  normal  vectors  created  by  CELGEN. 

The  coordinates  of  the  joints  within  the  laminate  are  generated  either 
along  these  normal  vectors  or  along  lines  connecting  user-defined  joints 
in  the  laminate.  The  coordinates  are  generated  for  the  stack  of  joints 
under  each  quadrilateral  corner.  If  the  coordinates  of  the  first  joint 
in  the  stack  are  other  than  the  input  values,  the  new  coordinates  are 
generated  by  multiplying  the  local  normal  vector  by  the  input  offset  and 
adding  that  vector  to  the  input  location  of  the  first  joint.  If  the 
joint  number  stored  in  the  array  of  quadrilateral  corner  joints  is 
negative.  Indicating  there  is  a user-defined  joint  in  the  stack  of  joints, 
there  is  a branch  to  the  segment  of  the  subroutine  that  constructs  unit 
vectors  between  user  defined  joints  in  the  stack  and  calculates  the  inter- 
vening joint  coordinates  along  these  unit  vectors.  If  the  joint  number 
at  the  top  of  the  stack  is  positive  all  the  coordinates  of  joints  in 
the  stack  are  generated  along  the  local  surface  normal. 

Input/Output 

None 

Argument  List 

VJ0INT  A real  array  of  coordinates  of  each  joint 

ML  An  integer  array  of  layer  information:  element  number 

increments,  joint  number  increments,  and  material  number 

TL  A real  array  of  layer  thickness,  including  the  offset  of 

the  true  outer  laminate  surface  from  the  input  laminate 
surface  joints 
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TVARI  A real  array  of  layer  thickness  for  each  stack  of  joints 

that  does  not  have  Internal  user-defined  joints 

J0INTP  An  Integer  array  of  joint  numbers  corresponding  to  quad- 

rilateral corners  stored  in  numerical  order 

VN0RM  A real  array  of  surface  normal  vectors  corresponding  to 

quadrilateral  corners,  stores  in  the  same  order  as  the 
joints  in  J0INTP 

NOT  An  Integer  scalar  defining  the  number  of  layer 


Labeled  Common 


None 


Subroutines  Called 
UVEC,  D0T 


Error  Detection 
None 


125 


SUBROUTINE  RIDCEL 

This  routine  reads  the  input  file  searching  for  Data  Code  40  data 
(cell  data)  which  it  stores. 

Algorithm 

The  input  file  Is  read  until  a Data  Code  40  card  is  encountered.  The 
file  is  then  backspaced  one  record  and  the  first  cell  data  is  read  and 
stored  in  an  array  in  a location  corresponding  to  the  cell  number  read. 

If  the  input  number  used  to  define  the  fifth  corner  is  zero,  the  cell  is 
called  a quadrilateral  and  its  number  is  stored  in  another  array.  The 
file  is  read  and  the  data  stored  until  a cell  number  of  9999  is  read  or 
the  Data  Code  on  the  card  is  not  40. 

Input/Output 

The  input  is  read  from  file  ITAPE. 

Argument  List 


IDCELL 

An  Integer  array  of  numbers  of  joints  on  the  eight  cell 
corners  (four  corners  for  quadrilaterals)  and  the  material 
number  stored  according  to  cell  number 

ZETA 

A real  array  of  stress  orientation  angles  stored  according 
to  cell  number 

IDQUAD 

An  integer  array  of  numbers  of  the  cells  that  only  have 
defining  corner  joints  input  (quadrilaterals)  stored  in 
order  in  which  they  are  read 

four 

the 

I FLAG 

An  Integer  scalar  flag  signalling  the  main  program  to 
terminate  execution  if  no  cell  data  are  found 

NCELLS 

An  Integer  scalar  defining  the  largest  cell  number  read 

JQUAD 

An  integer  scalar  defining  the  number  of  quadrilaterals 
encountered 

MAXQ 


An  integer  scalar  defining  the  largest  cell  number  among 
the  quadrilaterals 


MAXOT  An  Integer  scalar  defining  the  largest  joint  number  used  to 

define  a quadrilateral  corner 

ITAPE  An  Integer  scalar  defining  the  number  of  Input  file 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 

If  no  cell  data  cards  are  found  the  message 
'NO  CELLS  (DATA  COOE  40)  ENCOUNTERED  IN  INPUT' 

Is  printed  and  I FLAG  Is  set  equal  to  1 to  cause  the  main  program  to 
terminate  execution. 
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SUBROUTINE  RJ0INT 

This  routine  reads  the  input  file  searching  for  Data  Code  2 data 
(joint  data)  which  it  stores. 

Algorithm 

The  input  file  is  read  until  a Data  Code  2 card  is  read.  The  file 
is  backspaced  one  record  and  the  coordinates  are  stored  in  an  array  in 
a location  corresponding  to  the  joint  number.  The  file  is  read  and  the 
contents  stored  until  a joint  number  of  9999  is  read  or  a card  without 
a Data  Code  of  2 is  encountered. 

Input/Output 

The  input  is  read  from  file  ITAPE. 

Argument  List 

VJ0INT  A real  array  of  coordinates  of  input  joints  stored  by  joint 

number 

IFLAG  An  integer  scalar  flag  signalling  the  main  program  to  term- 

inate execution  of  no  joint 

NJ0INT  An  integer  scalar  defining  the  largest  joint  number  read 

ITAPE  An  integer  scalar  defining  the  number  of  input  file 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 

If  no  joint  data  cards  are  found,  the  message 
'NO  JOINTS  (DATA  CODE  2)  ENCOUNTERED  IN  INPUT' 
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is  written  and  I FLAG  is  set  equal  to  1 to  cause  the  main  program  to 
terminate. 
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SUBROUTINE  RLAYER 

This  routine  reads  the  input  file  searching  for  Data  Code  7 (layer 
data)  which  it  stores. 

AT  qori thm 

The  input  file  is  read  until  a Data  Code  7 card  is  found.  The  file 
Is  then  backspaced  one  record  and  the  layer  data  is  stored  in  an  array 
in  a location  corresponding  to  the  layer  number  plus  one.  The  zeroth 
layer  (which  really  contains  only  the  distance  from  the  loft  line  to  the 
top  layer)  is  thus  stored  in  the  first  column  of  the  layer  data.  The 
input  file  continues  to  be  read  and  layer  data  stored  until  a layer  identi 
flcation  of  9999  is  read  or  until  a card  that  does  not  carry  a Data  Code 
of  7 is  read. 

Input/Output 

The  input  is  read  from  file  ITAPE. 

Argument  List 

TL  A real  array  of  thicknesses  of  the  layers 

ML  An  integer  array  of  material  number,  element  number 

Increment,  and  joint  number  Increment  for  each  layer 

I FLAG  An  integer  scalar  for  signalling  the  main  program  to 

determine  if  no  layer  data  is  read 

NL  An  Integer  scalar  defining  the  largest  layer  number  read 

plus  one 

ITAPE  An  Integer  scalar  defining  the  number  of  the  input  file 

Labeled  Common 
None 

Subroutines  Called 
None 
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Error  Detection 

If  no  layer  data  cards  are  read  the  message 
'NO  LAYERS  (DATA  CODE  7)  ENCOUNTERED  IN  INPUT1 
is  printed  and  I FLAG  is  set  equal  to  1 to  cause  the  main  program  to 
terminate. 


SUBROUTINE  RTVARI 

This  routine  determines  the  thickness  of  every  layer  at  every  joint 
in  the  laminate  using  the  thicknesses  read  in  RLAYER  for  each  layer  as 
the  default  values  and  reading  revised  thickness  data  to  calculate  and 
store  the  non-default  thicknesses. 

Algorithm 

First  all  the  thicknesses  read  in  by  RLAYER  are  stored  in  an  array 
in  locations  corresponding  to  layer  number  and  quadrilateral  corner 
number  so  that  each  quadrilateral  corner  has  a stack  of  thicknesses 
associated  with  it.  Then  the  input  file  is  read,  searching  for  revised 
thickness  data  (Data  Code  8).  When  the  data  is  found  it  is  stored  in  the 
appropriate  location  in  the  array  created  earlier,  replacing  default 
values.  The  reading  and  storing  continues  until  a joint  number  of  9999 
is  encountered  or  the  card  does  not  carry  a Data  Code  of  8. 

Input/Output 

The  input  is  read  from  file  ITAPE. 

Argument  List. 

TVARI  A real  array  of  thicknesses  of  layers  beneath  each  joint 

on  a quadrilateral  corner 

TL  A real  array  of  thicknesses  of  layers  stored  by  layer 

number  by  RLAYER 

J0INTP  An  integer  array  of  joint  numbers  corresponding  to 

quadrilateral  corners 

NL  An  integer  scalar  defining  the  number  of  quadrilateral 

corners 

ITAPE  An  Integer  scalar  defining  the  number  of  the  input  file 

Labeled  Common 
None 


132 


Subroutines  Called 


None 

Error  Detection 

If  any  joint  number  input  through  Data  Code  8 data  has  a user-defined 
joint  in  the  stack  of  joints  below  it  the  message 

'JOINT  nnnn  LISTED  IN  DATA  CODE  8 IS  ABOVE  A USER-DEFINED  JOINT  ~ USER- 
DEFINED  JOINT  WILL  REMAIN  UNCHANGED' 

Is  printed  but  execution  continues  since  the  user-defined  joint  will  take 
precedence  later  on  in  the  program. 

If  the  revised  thickness  data  duplicates  the  existing  thickness  data, 
the  message 

'CARD  ENCOUNTERED  IN  DATA  CODE  8 DUPLICATES  EXISTING  LAMINATE  DATA* 
is  printed  as  a caution  to  the  user  and  execution  continues. 

If  any  input  joint  is  not  found  in  the  list  of  joint  numbers  corres- 
ponding to  quadrilateral  corners  the  message 
'JOINT  NO.  nnnn  LISTED  IN  DATA  CODE  8 IS  NOT  FOUND  IN  LIST  OF  QUAD 
CORNER  J0INTS  — BAD  DATA  MAY  RESULT' 

is  printed  and  execution  is  continued  although  revised  thicknesses  are 
liable  to  be  applied  to  the  wrong  quadrilateral  corners. 

If  no  revised  thickness  data  is  found  the  message 
'NO  REVISED  THICKNESSES  (DATA  CODE  8)  ENCOUNTERED  IN  INPUT' 
is  printed  and  execution  proceeds,  assuming  all  thicknesses  to  be  as  they 
were  read  by  RLAYER. 


SUBROUTINE  UVEC 

This  routine  forms  and  returns  a unit  vector  from  an  Input  vector. 
Algorithm 

The  length  of  the  input  vector  is  found  and  the  input  vector’s 
components  are  divided  by  the  length.  The  resulting  unit  vector  is  re 
turned  through  the  argument  list.  . 

Input/Output 
None 

Argument  List 
I 

J 

C 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 

If  the  length  of  the  vector  to  be  unitized  is  zero,  the  message 
'ATTEMPT  TO  UNITIZE  ZERO  VECTOR' 

is  printed  and  the  zero  vector  is  divided  by  a length  of  one  and  returned. 


An  integer  scalar  defining  the  location  of  input  vector 
in  array  C 

An  integer  scalar  defining  the  location  of  output  vector 
in  array  C 

A real  array  of  vectors 


SUBROUTINE  WCELL 

This  routine  outputs  the  cell  data  In  the  format  for  Data  Code  40  on 
files  6 and  JTAPE. 

Algorithm 

The  cell  data  (cell  number,  corner  joint  numbers,  material  number, 
and  stress  orientation  angle)  are  written  on  file  6 and.  If  JTAPE  t 6, 
on  file  JTAPE  as  well.  The  format  for  the  JTAPE  output  does  not  include 
carriage  control  characters.  After  all  the  cell  data  has  been  written 
a cell  number  of  9999  is  output  to  mark  the  end  of  the  cell  data. 

Input/Output 
The  output 

Argument  List 
IDCELL 

ZETA 
NCELLS 
JTAPE 

Labeled  Conroon 
None 

Subroutines  Called 
None 

Error  Detection 

If  arrav  IDCELL  has  data  greater  than  105,  indicatino  nn  data  was  read 
or  generated  for  the  cell,  the  message  '.GAP  IN  DATA'  is  outout  and  execution 
continues  with  the  next  cell  for  which  the  program  has  valid  data. 


is  written  on  files  6 and  JTAPE. 

An  integer  array  of  cell  data:  eight  joint  numbers 
defining  the  corners  and  the  material  number  for  each  cell 

A real  array  of  stress  orientation  angles 

An  integer  scalar  defining  the  number  of  cells 

An  integer  scalar  defining  the  number  of  one  of  the 
output  files 


SUBROUTINE  WJ0INT 

This  routine  outputs  the  joint  data  In  the  Data  Code  2 format  on  files 
6 and  JTAPE. 

AT  qori thm 

The  joints  data  (joint  number  and  coordinates)  is  written  on  file  6 
and,  if  JTAPE  f 6,  on  file  JTAPE  as  well.  The  format  for  the  JTAPE 
output  has  no  carriage  control  characters.  After  all  the  joint  data  has 
been  output,  a joint  number  of  9999  is  output  as  a flag  Indicating  the 
end  of  the  data. 

Input/Output 

The  output  is  written  on  files  6 and  JTAPE. 


A real  array  of  coordinates  of  the  joints 

An  integer  scalar  defining  the  number  of  joints 

An  Integer  scalar  defining  the  number  of  one  of  the 
output  files 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 

30 

If  the  x-coordinate  of  a joint  is  10  , indicating  that  no  data  for 
the  joint  was  read  or  generated,  the  message 
'GAP  IN  SEQUENCE' 

is  output  and  execution  continues  at  the  next  joint  whose  coordinates 
are  known. 


Argument  List 
VJ0INT 
NJ0INT 
JTAPE 
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SUBROUTINE  WN0RM 


This  routine  outputs  the  surface  normal  data  In  the  Data  Code  6 
format  on  files  6 and  UTAPE. 

Algorithm 

The  normals  and  areas  which  have  been  generated  for  every  joint  on  a 
quadrilateral  corner  are  output  on  file  6 and  JTAPE  t 6,  on  file  JTAPE 
as  well.  The  format  for  JTAPE  has  no  carriage  control  characters.  When 
all  normals  have  been  written  a joint  number  of  9999  is  output  to  signal 
the  end  of  the  surface  normal  and  area  data. 


Input/Output 

The  output  is  written  on  files  6 and  JTAPE. 


Argument  List 

VN0RM  A real  array  of  the  unitized  surface  normals  for  every 

joint  on  a corner  of  an  input  quadrilateral 


AREA  A real  array  of  the  areas  associated  with  every  joint 

on  a corner  of  an  input  quadrilateral 

J0INTP  An  Integer  array  of  the  joints  on  the  corners  of  the  input 

quadrilaterals 


NJT  An  integer  array  of  numbers  of  joints  on  corners  of  input 

quadrilaterals 

JTAPE  An  integer  scalar  defining  the  number  of  one  of  the 

output  files 


Labeled  Common 


None 


Subroutines  Called 
None 
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APPENDIX  8 

INITIAL  GENERATOR  ROUTINES 
AND 

LABELED  COMMON  BLOCKS 


This  appendix  contains  detailed  descriptions  of  all  routines  and 
labeled  common  blocks  in  this  program.  Table  B gives  either  page  number 
references  within  this  document  or  references  to  other  documents  for 
documentation  of  each  routine  or  labeled  coirmon  block.  Some  page  number 
references  may  be  to  preceding  appendices  where  the  doucmentation  for 
8v routine  in  this  program  is  identical  to  a previously  documented  routine. 
This  does  not  imply  verbatum  source  code  duplication  for  the  routine, 
only  functional  duplication  is  implied. 


The  detailed  description  of  each  routine  is  divided  into  the  following 
subheadings: 


Algorithm 

verbal  flow 

Input/Output 

description 

output 

Argument  List 

name,  type. 

Labeled  Coimon 

list  of  all 

Subroutines  Called 

list  of  all 

Error  Detection 

description 

taken 

chart  of  routine  logic  and  data  flow 
of  all  external  data  set  input/ 

and  description  of  each  argument 
labeled  conmon  blocks  declared 
routines  called 

of  tests  made  for  errors  and  action 


The  detailed  description  of  each  labeled  common  block  is  divided  into 
the  following  subheadings: 


Declaration 


verbatum  declaration  of  the  labeled  common  block 


Contents 


name  and  description  of  each  variable  appearing 
in  the  declaration 


Usage 


list  of  all  routines  which  contain  declarations 
for  the  labeled  common  block 


140 


TABLE  B.  INDEX  TO  INITIAL  GENERATOR  ROUTINES  AMD 
LABELED  COMMON  BLOCKS 
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MAIN  PROGRAM  BIRDG1 

This  routine  is  the  overall  executive  or  supervisory  routine  for  the 
windshield  technology  program  Initial  Generator.  It  controls  the 
sequence  of  Input,  the  calling  of  subprograms  or  modules,  and  the 
coordination  of  data  output.  For  the  derivation  of  element  matrices 
and  additional  mathematical  formulations,  refer  to  Appendix  H of  Part 
1 of  this  report. 

Algori thm 

The  program  begins  by  initializing  various  counters  and  flags. 

Then  Data  Code  1 Is  read  and  checked  for  validity.  Subroutines  JZERO 
and  JTEMP  are  invoked  to  read  Data  Codes  2 and  3 building  the  joint 
coordinate  and  joint  temperature  tables.  These  are  printed  out  by 
subroutine  JTPRT. 

Next,  a taoe  header  is  written  on  tape  1 using  subroutine  TAPEHD. 

The  joint  coordinate  table  is  written  onto  tape  1,  with  the  header  and 
trailer  records  written  by  routines  MATHD  and  MATTR.  Direction  numbers 
and  constraints.  Data  Codes  4 and  5,  are  read  and  the  reaction  table 
created  and  written  onto  tape  16  by  execution  of  subroutine  CNCSTN.  Next 
Data  Code  6 is  skipped  over  by  calling  routine  SKDATA.  Material  properties. 
Data  Code  10,  are  processed  for  future  use  and  written  onto  tape  1 by 
module  MTLMOD.  Again  SKDATA  is  used  to  skip  over  unnecessary  input  Data 
Codes  11  and  12,  if  present. 


The  program  now  goes  into  a loop  for  processing  the  various  ele- 
ments. One  element  is  processed  each  time  through  the  loop.  First 
bar  elements,  then  membranes,  cells  and  point  mass  elements  are  pro- 
cessed in  order.  Subroutine  ELEMENT  is  used  to  Input  and  validate 
the  element  definition  Input,  Data  Codes  20,  30,  40,  and  50.  The 
joint  temperature  differentials  are  calculated  and  the  material 
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properties  are  then  obtained  by  invoking  routine  ACCPRP.  Print  flags 
are  checked  and  the  compliance  matrix  is  formed  according  to  the  type 
of  element.  Subroutine  LP8AR,  LPCAP  and  LPMAP  are  invoked  to  generate 
the  various  element  matrices  which  are  saved  as  partitions  of  their 
respective  matrices  representing  the  total  structure  by  routines  LPBSM, 
LPCSM,  LPMSM,  and,  in  the  case  of  point  mass  elements,  by  main  program. 

After  processing  all  elements,  the  edges  are  processed  by  routine 
EDGO0F.  Using  the  edge  data,  the  ETC  table  and  some  program  constants, 
the  assembly  module  PASSM  generates  the  PRUPT  and  the  PRUF  matrices 
writing  them  out  to  tape  1.  Next,  routine  WTAPE1  Is  used  to  generate 
the  K,  M,  KBAR,  CBAR,  FFBAR,  SIGMA  FBAR,  EPSIL0N  SIGMA,  EB0T,  and  EVT 
matrices.  These  matrices  along  with  the  C0NST  table  are  written  onto 
tape  1.  Finally,  a tape  trailer  record  is  written  onto  tape  1 using 
routine  TAPTR  called  from  BIRDG1. 

If  a dump  of  tape  1 is  requested  by  the  user,  it  is  dumped  using  the 
routine  DUMPMT.  When  this  is  completed,  the  program  constants  are 
printed  by  subroutine  PRTC0N  and  the  run  is  wrapped  up. 


Input/Outpuf. 


Tape  1 is  the  output  tape  for  binary  matrix  data  and  Is  formatted 
for  use  as  a F0RMAT  matrix  master  input  tape.  Tapes  5 and  6 are 
used  for  system  input  and  output,  respectively.  Tapes  7 through  18 
are  used  as  scratch  units  to  store  data  passed  between  modules  within 
the  program.  The  data  temporarily  stored  on  these  tapes  is  as  follows: 


Tape 


Data 


7 Element  variable  table  (ECT) 

3 Element  damping  matrix  (c) 

9 Element  thermal  matrices  (eyA  and  <5iy) 

10  Element  mass  matrix  (m) 
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Tape 


Data 


11 

12 

13 

14 

15 

16 

17 

18 


Element  stress/strain  transform  (eo) 

Element  force  transform  (Fp) 

Element  stiffness  matrix  (T<) 

Element  stiffness  components  (KLPB,  DLPM  and  KLPC) 
Element  force/stress  transform  (o^-) 

Global/oblique  constraint  tables 
Edge  degree  of  freedom  table 
Element  constant  table  (ECT) 


Argument  List 
None 


Labeled  Common 

C0NST,  IERR0R,  J0RT,  LPEP,  MTRL 
Subroutines  Called 

ACCPRP,  CNSTRN,  OUMPMT,  EDGD0F,  EDGES,  ELEMNT,  JTEMP , JTPRT,  JZER0, 
LPBAR,  LPBSM,  LPCAP,  LPCC,  LPCSM,  LPMAP , LPMC,  LPMSM,  MATHD,  MATTR, 
MTIM0D,  PASSM,  PRTC0N,  SKDATA,  TAPEHD,  TAPETR,  WTAPE1 

Error  Detection 

A check  Is  made  for  the  Data  Code  1 delimiter  card  being  missing  or 
out  of  sequence.  If  this  card  is  missing  the  run  is  aborted.  If 
the  base  temperature  is  not  input,  the  program  sets  the  IERR0R  flag 
equal  to  zero  aborting  the  run  but  continues  execution  to  allow  a 
scan  of  the  remaining  input  data  for  additional  errors. 


r - — 1 

n 

LABELED  COW-ION  ABC 

This  common  block  is  used  by  the  sorting  module  to  store  sort 
control  parameters. 

i I 

Declaration 

C0MM0N  /ABC  / INIHI ,INIL0 , IP ,ISWAP ,ICNTR,KEYFLD 
Contents 

INIHI  Pointer  to  last  record  in  a file  to  be  partitioned 

INIL0  Pointer  to  first  record  in  a file  to  be  partitioned 

IP  Pointer  to  record  that  is  the  partitioning  agent 

ISWAP  Record  interchange  counter 

ICNTR  Pointer  to  next  subfile  in  the  subfile  stack 

KEYFLD  Record  element  that  contains  the  sort  key 

Usage 

PARTN , QKS0RT,  STACK,  SWAP 


LABELED  COMMON  C0FCLC 

This  common  block  is  used  to  store  data  and  program  parameters  assoc- 
iated with  the  computation  of  material  properties. 


Declaration 


C0MM0N  /C0FCLC/  TVPA(IO.IO) , RTMP ( 1 0, 3 ) , ITMP ( 1 0 , 3 ) , VPT( 1 0 ) , 
AP(10),ASC(10,10),BSC(10) 


Contents 

TVPA 

RTMP 

IMPT 

VPT 

AP 

ASC 

BSC 

Usage 


An  array  of  temperatures  for  a property  where  the  rows 
are  temperatures  associated  with  a property  In  VPT  and 
the  columns  are  monotonically  increasing  powers  of  the 
temperature 

Scratch  space  required  by  routine  SID,  must  be  at  least 
3*number  of  rows 

Same  as  RTMP 

Input  property  values  associated  with  temperatures  in  TVPA 
Temporary  storage  for  the  calculated  coefficients 
Scratch  stor.age  used  In  the  calculations 
Same  as  ASC 


C0LALC,  PR0P 


mmm 


LABELED  COMMON  C0NST 


This  common  block  is  used  to  store  coefficients  and  counters  des- 
cribing the  overall  model  size  and  problem  constants. 


Declaration 


DIMENSION  C0NST ( 30 ) 

C0MMON  /C0NST/  NJ,  NC,  NM,  NBAR,  NMEM,  NCELL,  NPTM,  NED0F,  NM0DES , 
NPLJ , N0R,  TBASE,  HO,  NMC,  ND,  MP1 , MP1NM,  GC,  GE 
EQUIVALENCE  (C0NST(1 ) ,N0) 


Contents 

NJ 

NC 

NM 

NBAR 

NMEM 

NCELL 

NPTM 

NED0F 

NM0DES 

NPLJ 

N0R 

TBASE 

HJ 

NMC 

ND 

MP1 

MP1NM 


Number  of  joints 
Number  of  constraints 
Number  of  materials 
Number  of  bar  elements 
Number  of  membrane  elements 
Number  of  cell  elements 
Number  of  point  mass  elements 
Number  of  edge  degrees  of  freedom 
Number  of  modes 

Number  of  pressure  loaded  joints 

Number  of  oblique  reactions 

Base  temperature  of  the  structure 

Mechanical  equivalent  of  heat 

Total  number  of  material  property  coefficients 

Total  number  of  material  property  words 

Maximum  number  of  properties  per  material  + 1 

MP1*NM 
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w 


Cell  stiffness  matrix  suppression  coefficient 
Bar  compliance  matrix  suppression  coefficient 


GC 
GE 

Usage 

BIRDG1 , JTEMP , JZER0,  MTLM0D,  PASSM,  PASSM1 , PASSM2 , PASSM4,  PASSM5 , 
PRTC0N,  WTAPE1 


LABELED  COMMON  ED0F,  I EDGE,  AND  ISEQ 

These  common  blocks  are  always  used  as  a group  by  those  modules 
associated  with  the  computation  of  overall  structural  degree  of  freedom 
row  formats. 

Declaration 

C0MM0N  /ED0F/  ID0F(72OO)  /I EDGE/  IEDG(7200)  /ISEQ/  ISEQ(7200) 

Contents 

ID0F  Edge  degrees  of  freedom  in  same  sequence  as  ISEQ 

IEDG  Sorted  pairs  of  joints  defining  edges 

ISEQ  Index  to  original  sequence  of  IEDG 

The  content  of  these  common  regions  varies  between  modules.  Source 
code  listings  should  be  consulted  for  specific  information  regarding 
content. 

' 

Usage 

EDGD0F,  PASSM 


T 


LABELED  COMMON  I DEN 

This  common  block  is  used  to  store  data  and  program  parameters  assoc- 
iated with  reading  material  property  input  data.  Data  Code  10. 


Declaration 

C0MM0N  /IDEN/  MR,IP,NPC,MAP,MR0LD,IP0LD.NC0LD,MAP0LD 


Contents 

MR 

IP 

NPC 

MAP 

MR0LD 

IP0LD 

NC0LD 

MAP0LD 


Material  reference  number  of  current  record  divided  by  100 
Property  identification  number  of  current  record 
Number  of  coefficients  input  for  current  property 
Number  of  coefficients  to  be  computed  for  current  property 
MR  for  the  previous  record 
IP  for  the  previous  record 
NPC  for  the  previous  record 
MAP  for  the  previous  record 


Usage 

C0CALC,  MATDES,  MTLM0D,  PR0P 


LABELED  COMMON  IERR0R 


This  common  block  is  used  to  store  the  main  error  flag  and  print 
control  flags. 


Declaration 

C0MM0N  /IERR0R/  I ERR0R , LNPAGE .MTDUMP , NPASSM 


Contents 

IERR0R 

LNPAGE 

MTDUMP 

NPASSM 


Program  fatal  error  flag 

Lines  per  page  print  limit,  defaults  to  45  lines 

Tape  1 dump  flag  which  if  0 means  no  dump,  if  1 dump 
header  records  only,  and  if  2 dump  complete  tape 

Print  flag  for  PRUPT  and  PRUF  matrix  assembly 


Usage 


BIRDG1,  ACCPRP,  CNSTRN , C0CALC,  DRCNUM,  EDGO0F , EDGES,  ELEMNT,  JTEMP , 

JZER0,  LPCKC,  MATDES,  MTLM0D,  0VER3,  PASSM,  PASSM1 , PASSM2,  PASSM4 , PASSM5 , 
PR0P,  PRTC0N,  RAM0SG,  WTAPE1 
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LABELED  COMMON  JORT 

This  common  block  is  used  to  store  joint  coordinate  and  temperature 
data. 

Declaration 

C0MM0N  /JORT/  JO (3, 1200) , TEMP(1200) 

REAL  JO 


Joint  coordinate  table 
Joint  temperature  table 

Usage 

BIRDG1,  ACCJZE,  JTEMP , JTPRT,  JZER0,  LPBAR,  LPBPRT,  LPCAP,  LPCG,  LPCPRT, 
LPMAP,  LPMG,  LPMPRT 


Contents 

JO 

TEMP 


LABELED  COMMON  LIMITS 

This  common  block  Is  used  to  store  size  limitation  parameters 
associated  with  material  property  tabular  data,  Data  Code  10. 

Declaration 

C0MM0N  /LIMITS/  MXMTRL ,MXPR0P .MXC0FS ,MXDES ,MXPC0 ,MXPVL 

Contents 
MXMTRL 
MXPROP 
MXCOFS 

MXDES 

MXPCO 
MXPVL 

Usage 

C0CALC,  MATDES,  MTLM0D,  PR0P 


1 

• 1 

' 


Maximum  number  of  materials  that  space  is  provided  for 

Maximum  number  of  properties  that  space  Is  provided  for 

Maximum  number  of  coefficients  for  all  properties  for  all 
materials  that  space  is  provided  for 

Maximum  number  of  packed  words  (10  characters  per  word)  of 
material  description  for  all  materials 

Maximum  number  of  coefficients  for  a property 

Maximum  number  of  values  for  a property 
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LABELED  COMMON  LPBEM 

This  common  block  Is  used  to  store  geometry  and  output  matrix  data 
for  bar  elements. 


Declaration 


C0MM0N  /LPBEM/  CBAR(2,2),  EBARTD(2) , EB0T(2)  , 

EMAS$(6,6) , EPSSIG  , FFBAR(7,2) , 
KLPB(7,7) , KBAR(2,2) , SFBAR(2)  , 
AB (4)  , PQ(4) 


REAL  KBAR,  KLBP 


Contents 

CBAR 

EBARTD 

EBOT 

EMASS 

EPSSIG 

FFBAR 

KLPB 

KBAR 

SFBAR 

AB 

PQ 

Usage 


Element  damping  matrix 

Unassembled  element  deformations  due  to  unit  temperature 
change 

Initial  element  thermal  deformations 
Element  mass  matrix 
Element  strain  matrix 

Unassembled  to  global  transformation  matrix 
Transformed  element  stiffness  matrix 
Element  stiffness  matrix 
Element  stress  matrix 

X,  Y,  Z components  of  unit  vector  from  P to  Q 
Bar  length  and  X,  Y,  Z components  of  length 


LPBAR,  LPBPRT,  LPBSM 


T 


LABELED  COMMON  LPCEM 

This  common  block  Is  used  to  store  cell  element  output  matrices. 
Declaration 

C0MM0N  /LPCEM/  CBAR(30,30),  EBARTD( 30)  , EB0T(30), 

EMASS(24,24) , EPSSIG(6,12) , FFBAR(36,30) , 

KBAR(30,30),  KLPC(36,36)  , SFBAR(12,30) 

REAL  KBAR,  KLPC 

Contents 
CBAR 
EBARTD 

EBOT 

EMASS 
EPSSIG 
FFBAR 
KBAR 
KLPC 
SFBAR 

Usage 

LPCAP,  LPCEBT,  LPCK,  LPCKC,  LPCRM,  LPCSM,  LPCZM 


Element  damping  matrix 

Unassembled  element  deformations  due  to  unit  temperature 
change 

Deformations  due  to  the  difference  between  element  joint 
temperature  and  the  structural  base  temperature 

Element  mass  matrix 

Element  strain  matrix 

Unassembled  to  global  transformation  matrix 
Element  stiffness  matrix 
Transformed  element  stiffness  matrix 
Element  stress  matrix 


LABELED  COMMON  LPCV 


This  common  block  is 
vector  data. 


Declaration 

C0MM0N  /LPCV/  PQ(4.8) 
AB(4,8 
EB  4,8) 
LA(8) 
TPB(4) 
TPQ(4) 
V(8) 

REAL  LA,  LB,  LT 


used  to  store  cell 


, RQ (4,8)  , RS(4,8) 

, BB(4,8)  , CB(4,8) 

, FB(4,8)  , FK( 5,8) 

, LB (8)  , LT (8 ) 

, TQB(4)  , TRB ( 4 ) 

, TRQ(4)  , TRS (4 ) 

, ZETA(8) 


element  geometry  and 


, PS (4,8)  , 

, DB(4,8)  , 

,’  THETA(8)  , 
, TSB (4 ) , 

, TPS (4 ) , 


Contents 


PQ 

Edge 

vector 

components 

and 

magnitude 

RQ 

Edge 

vecgor 

components 

and 

magnitude 

RS 

Edge 

vector 

components 

and 

magnitude 

PS 

Edge 

vector 

components 

and 

magnitude 

AB 

Unit 

vector 

components 

BB 

• Unit 

vector 

components 

CB 

Unit 

vector 

components 

DB 

Unit 

vector 

components 

EB 

Unit 

vector 

components 

FB 

Unit 

vector 

components 

FK  K factor 

LA  Length  of  cell  sub-element 

LB  Width  of  cell  sub-element 


LT  Average  thickness  of  cell  sub-element 

THETA  Corner  angles  THETAPO,  THETAQO,  THETARO,  THETASO, 

THETAP1 , THETAQ1 , THETAR1 , and  THETAS 1 
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TPB 

Thickness 

vector 

components 

and 

magnitude 

TQB 

Thickness 

vector 

components 

and 

magnitude 

TRB 

Thickness 

vector 

components 

and 

magnitude 

TSB 

Thickness 

vector 

components 

and 

magnitude 

TPQ 

Thickness 

vector 

components 

and 

magnitude 

TRQ 

Thickness 

vector 

components 

and 

magnitude 

IRS 

Thickness 

vector 

components 

and 

magnitude 

TPS 

Thickness 

vector 

components 

and 

magnitude 

V T*A*B*SIN (THETA)  for  cell  sub-element 

ZETA  Orientation  angle  of  cell  sub-element 

Usage 

LPCAP,  LPCEBT,  LPCFFB,  LPCG,  IPCKC,  LPCPRT,  LPCSM 
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LABELED  COMMON  LPEP 


This  common  block  is  used  to  store  material  properties,  joint 
connectivity  data,  and  other  Information  for  an  element. 


Declaration 


CK1 (6,6) , CK2 (6,6) , E 
H , JCN (8 ) , MR 

PM(3)  , PRFLAG  , RH0 

V0L  , ZETAPQ 


DIMENSION  CK( 3,3) , JMN(4) 

COMMON  /LPEP/  A , ALPHAT 

EC  , ET 

MT  , NU 

T , TD(8) 

EQUIVALENCE  (CK1 (1,1) ,CK(1 ,1 ) ) , ( JCN(1 ) , JMN( 1 ) ) , 

(JP  , JCN ( 1 ) ) , (JQ  , JCN ( 2 ) ) ,(JR  , JCN ( 3 ) ) , ( JS  ,JCN(4)), 
(JPO,JCN(l ) ) , ( JQ0,JCN(2) ) , (JRO,JCN( 3) ) , (JS0,JCN(4) ) , 
(JP1 • JCN ( 5 ) ) , (JQ1  , JCN ( 6 ) ) ,(JR1 , JCN(7) ) , ( JS1 ,JCN(8) ) . 

REAL  NU , MT 
INTEGER  PRFLAG 


Contents 

A 

ALPHAT 

CK 

CKl 

CK2 

E 

EC 

ET 

H 

JCN 

JMN 

MR 


Cross  sectional  area 
Coefficient  of  thermal  expansion 
Compliance  matrix 

Compliance  matrix  for  upper  half  of  LPC  element 
Compliance  matrix  for  lower  half  of  LPC  element 
Elastic  modulas 
Compression  gap 
Tension  gap 

Damping/stiffness  ratio 

Array  containing  cell  joint  numbers  JPO,  JQO,  JRO,  JSO, 
JP1,  JQ1 , JR1 , and  JS1 

Array  containing  membrane  joint  numbers  JP,  JQ,  JR,  and  JS 
Material  properties  reference  code 


a, 


MT 

Total  element  mass 

NU 

Poisson's  ratio 

PM 

Point  mass 

PRFLAG 

Print  flag 

RH0 

Mass  density 

T 

Membrane  thickness 

TD 

Array  containing  unit  temperature  differential  at 
joints  JPO,  JQO,  JRO,  JSO,  JP1 , JQ1 , JR1 , and  JSl 

V0L 

Element  volume 

ZETAPQ 

Material  or  stress  orientation  angle 

Usage 

BIRDGl , ELEMNT , LPBAR,  LPBPRT,  LPBSM,  LPCAP,  LPCC,  LPCEBT,  LPCFFB,  LPCG, 
LPCKC,  LPCPRT , LPMPRT,  LPCSM,  LPMSM,  LPMAP,  LPMC,  LPMFFB,  LPMEBT,  LPMG 


LABELED  COMMON  LPMOSZ 


This  common  block  Is  used  to  store  membrane  element  geometry  data 
and  Intermediate  matrix  data. 

Declaration 

C0MM0N  /LPMDSZ/  A0TP  , A0T0  , A0TR  , A0TS  , 

DP (3,3) , DQ( 3,3) , DR(3,3),  DS(3.3), 

SP(3)  , SQ(3)  , SR(3)  , SS(3)  . 

ZP(3,3) , ZQ( 3,3) , ZR(3 ,3) , ZS(3,3) 


Contents 

A0TP 

A*B*sin  (THETA)/t  for  corner  p 

A0TQ 

A*B*sin  (THETA)/t  for  corner  q 

A0TR 

A*B*sin  (THETA)/t  for  corner  r 

A0TS 

A*B*sin  (THETA)/t  for  corner  s 

DP 

V 

D matrix  for  corner  p 

A. 

DQ 

V 

D matrix  for  corner  q 

a. 

DR 

V 

D matrix  for  corner  r 

DS 

D matrix  for  corner  s 

SP 

Skew  stress  matrix  for  corner  p 

SQ 

Skew  stress  matrix  for  corner  q 

SR 

Skew  stress  matrix  for  corner  r 

SS 

Skew  stress  matrix  for  corner  s 

Global  translation  matrix  for  corner  p 
Global  translation  matrix  for  corner  q 
Global  translation  matrix  for  corner  r 
Global  translation  matrix  for  corner  s 


1 


Usage 

LPMAP,  LPMKC,  LPMPRT,  LPMSZD,  LPMS1 , LPMS2 


LABELED  COMMON  LPMEM 

This  common  block  Is  used  to  store  membrane  element  output  matrices. 


Declaration 

C0MM0N  /LPMEM/  CBAR(9,9)  , EBARTD(9)  , EB0T(9)  , 

EMASS(12,12).  EPSSIG(3,3) , FFBAR(16,9), 
KBAR(9,9)  , KLPM( 16,16) , SFBAR(3,9) 

REAL  KBAR,  KLPM 


Contents 


EBARTD 


EMASS 

EPSSIG 


FFBAR 


SFBAR 


Usage 


Element  damping  matrix 

Unassembled  element  deformations  due  to  unit  temperature 
change 

Deformations  due  to  the  difference  between  element  joint 
temperature  and  the  structural  base  temperature 

Element  mass  matrix 

Element  strain  matrix 

Unassembled  to  global  transformation  matrix 
Element  stiffness  matrix 
Transformed  element  stiffness  matrix 
Element  stress  matrix 


LPMAP,  LPMFFB,  LPMEBT,  LPMPRM,  LPMSM , LPMSZD,  LPMZM 
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LABELED  COMMON  LPMV 


This  common  block  is  used  to  store  membrane  element  geometry  and 
vector  data. 

Declaration 

COMMON  /LPMV/  PQ(4)  , RQ(4)  , RS(4)  , PS{4)  , 

AB(4)  , BB(4)  , CB(4)  , DB(4)  , EB(4)  , 

FK1  , FK2  , FIG  , FK4  , FK5  , 

THETAP  , THETAQ  , THETAR  , THETAS 


Contents 

PQ 

Edge  vector  components  and  magnitude 

RQ 

Edge  vector  components  and  magnitude 

RS 

Edge  vector  components  and  magnitude 

PS 

Edge  vector  components  and  magnitude 

AB 

Unit  vector  components 

BB 

Unit  vector  components 

CB 

Unit  vector  components 

DB 

Unit  vector  components 

EB 

Unit  vector  components 

FK1 

K factor 

FK2 

K factor 

FIG 

K factor 

FK4 

K factor 

FK5 

K factor 

THETAP 

Corner  angle 

THETAQ 

Corner  angle 

THETAR 

Corner  angle 

THETAS 

Corner  angle 

9 
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LABELED  COMMON  MTRL 


This  common  block  Is  used  to  store  the  material  property  tables  in 

their  entirety. 

Declaration 

C0MM0N  /MTRL/  C0EFS(66O) ,LENC0F,LENDES,LNGTHS(14,2O) ,MPTR(240) , 
MRDES(240) , PRPVAL(13) 

Contents 

C0EFS  Coefficients  for  all  properties  for  all  materials 

LENC0F  Length  of  coefficients 

LENDES  Length  of  MRDES 

LNGTHS  Number  of  coefficients  for  each  property  and  number  of 

packed  material  description  words  for  each  material 

MPTR  Pointers  to  first  coefficients  for  all  properties  of  all 

materials  as  stored  in  array  COEFS,  and  pointers  to  the 
first  packed  material  description  word  for  all  materials 
as  stored  In  array  MRDES 

MRDES  Packed  material  description  for  all  materials 


PRPVAL  Temporary  storage  for  properties  for  a material 

PRPVAL ( 1)  Elastic  modulas 
PRPVAL(  2)  Secant  modulas  at  point  A, 

Approximate  yield  point 
PRPVAL(  3)  True  stress  at  point  A 
PRPVAL ( 4)  True  stress  at  rupture 
PRPVAL(  5)  True  strain  at  rupture 
PRPVAL ( 6)  Poisson's  ratio 
PRPVAL ( 7)  Coefficient  of  thermal  expansion 
PRPVAL ( 8)  Mass  density 
PRPVAL ( 9)  Specific  heat 
PRPVAL(IO)  Damping/stiffness  ratio 
PRPVAL(ll)  Ramberg-Osgood  coefficient 
PRPVAL (12)  Slope  tangent  to  Ramberg-Osgood  curve  at  the 
origin 

PRPVAL (13)  Elastic  limit  stress 


BIRDG1 , ACCPRP,  LPBSM,  LPCSM,  MATDES,.  MTLM0D,  PR0P,  RAM0SG 


I 
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LABELED  COMMON  WRK 


This  common  block  Is  used  as  scratch  space  by  several  routines. 
Declaration 

The  largest  extent  declared  for  labeled  common  block  WRK  occurs  In 

subroutine  CNSTRN.  The  declaration  in  that  routine  is  given  here. 

COMMON  /WRK/  DIREC(3)  , DIRTBL(50,3) , DUM(600), 

IC0N(600,3) , 0BLIQ(300,3) 


r 

SUBROUTINE  ACCJZE 

This  routine  computes  the  difference  of  the  X,  Y and  Z coordinates 
of  two  joints. 

Algorithm 

The  coordinates  of  the  two  joints  are  accessed  in  the  joint  coordinate 
table,  array  J0,  and  the  X,  Y,  Z coordinate  differences,  representing 
the  components  of  a vector  directed  from  the  first  joint  to  the 
second,  are  stored  in  array  DIREC. 

Input/Output 
None 

Argument  List 

JNTM  An  integer  scalar  defining  the  first  joint  number 

JNTN  An  integer  scalar  defining  the  second  joint  number 

OIREC  A real  array  for  the  direction  vector 

Labeled  Common 
J0RT 

Subroutines  Called 
None 

Error  Detection 
None 

I 
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SUBROUTINE  ACCPRP 


This  routine  computes  properties  for  a material  as  a function  of  a 
given  temperature  and  comoutes  the  Ramberg-Osgood  coefficients. 

Algorithm 

The  first  10  values  of  the  PRPVAL  array  are  computed  using  subrouting 
H0RNER.  The  last  three  are  computed  by  routine  RAM0SG.  IF  the  IERR0R  flag 

is  set  non-zero  prior  to  entry  to  this  routine,  no  material  properties 
are  computed. 

Input/Output 

Diagnostics  are  written  on  tape  6. 

Argument  List 

MR  An  integer  scalar  defining  the  material  reference  number 

NM  integer  scalar  defining  the  number  of  materials 

TMPT  A real  scalar  defining  the  temperature 

Labeled  Common 
MTRL 

Subroutines  Called 
H0RNER,  RAM0SG 

Error  Detection 

If  a material  reference  number  is  greater  than  the  maximum  allowed, 
a diagnostic  Is  printed,  the  IERR0R  flag  Is  set  equal  one,  and  a return 
is  made  to  the  calling  routine. 
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SUBROUTINE  CNSTRN 

This  routine  reads  the  direction  cosine  data.  Data  Code  4,  the 
constraint  data.  Data  Code  5,  from  which  tables  are  generated  to 
Indicate  constrained  degrees  of  freedom  that  are  oblique  as  well  as 
parallel  to  the  global  directions. 

Algorl thm 

Data  Code  4 Is  processed  and  the  direction  table  Is  generated  by 
calling  subroutine  ORCNUM. 

Constraints,  Data  Code  5,  are  processed  next  one  at  a time.  A 
data  card  Is  read  and  an  ECH0  of  the  values  are  printed  on  tape  6. 

The  data  Is  checked  for  validity  and  If  errors  are  found,  the  IERR0R 
flag  Is  set  and  the  program  continues  to  check  the  remainder  of  the 
input.  Subroutine  ACCJZE  Is  used  to  access  the  joint  coordinate 
table  and  determine  the  direction  cosines.  The  direction  cosines  are 
normalized  and  the  direction  vector  checked  for  zero.  The  constraint 
number  and  the  joint  number  are  stored  In  the  constraint  table  IC0N. 
Next  the  components  are  checked  to  see  If  the  constraint  is  in  the 
global  directions.  If  so,  the  procedure  Is  continued  for  the  next 
constraint  until  all  constraints  are  processed. 

If  the  constraint  is  an  oblique  constraint,  the  direction  cosines 
are  stored  Into  the  oblique  direction  table  0BLIQ  and  the  rest  of 
constraints  processed  as  above. 

After  all  of  the  constraint  data  has  been  processed  the  constraint 
table  Is  sorted  using  subroutine  QKS0RT.  A check  Is  made  for  more 
than  three  entries  per  joint  using  routine  (JVER3.  The  constraints  and 
oblique  table  are  written  onto  tape  16. 


Input/Output 

User  input  constraint  data  is  read  from  tape  5,  and  the  compiled 
constraint  table  Is  written  onto  tape  16.  Tape  6 Is  used  for  the 
output  of  diagnostics. 

Argument  List 


MAXJNT  An  Integer  scalar  defining  the  maximum  joint  number  in  the 

structure 

NCT  An  Integer  scalar  defining  the  number  of  constraints 

NjJB  An  integer  scalar  defining  the  number  of  oblique  reactions 

LNPAGE  An  integer  scalar  defining  the  lines  per  page  print  limit 


Labeled  Common 
MTRL 


Subroutines  Called 
ACCJZE,  DRCNUM , 0VER3,  QKS0RT 

Error  Detection 

Checks  are  made  for  any  direction  vectors  equal  to  zero,  Invalid  joint 
numbers,  data  out  of  sequence,  invalid  Data  Code,  number  of  constraints 
exceeding  the  program  maximum  limitation,  constraint  data  missing,  and 
the  number  of  oblique  constraints  exceeding  the  maximum.  A diagnostic 
is  written  for  all  errors,  the  IERR0R  flag  is  set  equal  zero,  and  a 
return  is  made  to  the  calling  routine. 
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SUBROUTINE  C0CALC 


This  routine  produces  a column  matrix  of  material  properties 
coefficients. 

Algori thm 

The  MVP  temperature/ value  pairs  stored  in  arrays  TVPA  and  VPT  are 
used  in  the  following  equation  to  compute  material  property  coeffi- 
cients. 

AP  » (TVPA1  * TVPA)"1  * (TVPAT  * VPT) 


Input/Output 

Diagnostics  are  written  on  tape  6. 

Argument  List 

MVP  An  integer  scalar  defining  the  number  of  temperature/ value 

pairs 

Labeled  Common 

C0FCLC,  IDEM,  IERR0R,  LIMITS 

Subroutines  Called 
LTRMLT , MLTMTR,  SID 

Error  Detection 

If  (TVPAT  * TVPA)"1  is  singular,  a diagnostic  Is  printed,  the 
IERR0R  flag  Is  set  equal  to  zero,  and  a return  is  made  to  the  calling 
routine. 


SUBROUTINE  DRCNUM 


This  routine  reads  the  direction  cosine  data,  Data  Code  4,  and 
builds  the  direction  table. 

Algorithm 

Data  Code  4 cards  are  read  and  checked  for  valid  data  entry.  An 
echo  of  the  input  values  is  printed  on  tape  6. 

Subroutine  ACCJZE  is  used  to  access  the  joint  coordinate  table 
and  determine  the  direction  cosines.  A check  is  made  of  the  direction 
vector  to  see  if  it  is  zero.  If  it  is  zero,  the  IERR0R  flag  is  set 
and  the  program  continues  to  scan  the  input  for  errors.  Next  the 
direction  cosines  are  normalized  and  stored  into  the  direction  table 
DIRTBL.  This  procedure  is  continued  until  all  Data  Code  4 input  has 
been  processed. 

Input/Output 

Direction  cosine  data  are  read  from  tape  5 and  diagnostics  are 
written  onto  tape  6. 

Argument  List 

DIRTBL  A real  array  for  the  direction  table 

MAXJNT  An  Integer  scalar  defining  the  maximum  joint  number  in  the 

structure 

NDR  An  Integer  scalar  defining  the  number  of  records  in  the 

direction  table 

JERR4  An  integer  scalar  error  condition  flag  for  the  direction 

table 

Labeled  Common 
IERR0R 


.i 


i 
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Subroutines  Called 


ACCJZE 

Error  Detection 

A check  Is  made  for  all  zero  direction  vectors,  joint  numbers  out 
of  range,  direction  cosine  records  not  in  sequence,  invalid  data  code, 
and  direction  numbers  exceeding  the  maximum  allowable.  For  all  errors 
a diagnostic  is  printed,  the  IERR0R  flag  is  set  to  zero,  and  the 
input  data  scanned  for  further  errors. 
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SUBROUTINE  DUMPMT 

This  routine  dumps  all  or  part  of  the  data  on  a standard  F0RMAT  tape. 
Algorithm 

The  information  contained  on  tape  IN  is  read  according  to  standard 
F0RMAT  matrix  data  format  and  then  printed  on  tape  6. 

Input/Output 

Data  is  read  from  tape  IN  and  then  printed  on  tape  6 
Argument  List 

IN  An  integer  scalar  defining  the  logical  unit  number  of  the  tape 

IFIAG  An  integer  scalar  control  flag  which,  when  zero,  specifies 

dump  header  records  only  and,  when  non-zero,  specifies  complete 
dump 

Labeled  Common 
WRK 


Subroutines  Called 
None 

Error  Detection 


None 


SUBROUTINE  EDGD0F 

This  routine  generates  an  insort  table  of  unique  edges  and  a table 
of  edge  degrees  of  freedom  corresponding  to  the  original  order  of  the 
unsorted  unique  edge  table. 

Algorithm 

If  the  IERR0R  flag  is  set  non-zero  prior  to  entry  to  this  routine, 
it  is  not  executed.  An  immediate  return  is  made  to  the  calling  routine. 

Tape  17  containing  the  pairs  of  joints  defining  each  edge  is  rewound  and 
read  Into  array  IEDG.  The  edges  are  sorted  according  to  the  first  joint 
using  routine  QKS0RT.  The  edges  are  compared  one  to  another  for  duplica- 
tion and  only  the  unique  edges  are  saved  in  array  IEDG.  The  degree  of 
freedom  number  for  the  edge  is  saved  in  array  ID0F.  The  final  table 
of  edges,  array  IEDG,  is  sorted  then  back  into  the  original  sequence. 

Input/Output 

Tape  6 is  used  to  output  diagnostics,  and  edge  data  is  read  from 
tape  17. 

Argument  List 

NWRT  An  integer  scalar  defining  the  number  of  elements  processed 

NPRS  An  integer  scalar  defining  the  number  of  edges  processed 

IUNQ  An  integer  scalar  defining  the  number  of  unique  edges 

Labeled  Common 
ED0F,  IEDGE,  ISEQ 

Subroutines  Called 
QKS0RT 
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Error  Detection 

If  the  number  of  edge  pairs  requested  Is  not  equal  to  the  number  of 
pairs  read  from  tape,  a diagnostic  is  printed,  the  IERR0R  flag  is  set 
equal  one,  and  a return  is  made  to  calling  routine. 
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SUBROUTINE  EDGES 

This  routine  assembles  the  joint  pairs  that  define  the  edges  of  an 
element. 

Algorithm 

The  number  of  edges  are  determined  according  to  the  type  of  element. 
Each  joint  pair  defining  an  edge  is  packed  into  a single  word  of  array 
I EDGE  according  to  the  formula 

I EDGE  » J1  * 10000  + J2 

where  Jl,  the  joint  number  of  joint  one,  is  less  than  J2,  the  joint  number 
of  joint  two.  When  all  edges  for  the  element  have  been  processed,  they 
are  written  on  tape  17  as  one  record  for  subsequent  use  by  subroutine 
EDGO0F. 

Input/Output 

Tape  6 is  used  to  output  diagnostics.  The  edge  data  is  output  onto 
tape  16. 

Argument  List 

IC0DE  An  integer  scalar  defining  the  data  code  of  the  element 

20  3 Bar 
30  * Membrane 
40  - Cell 
50  ■ Point  Mass 

JCN  An  Integer  array  containing  element  joint  numbers 

NWRT  An  integer  scalar  defining  the  number  of  elements  whose 

edges  have  been  processed 

NPRS  An  integer  scalar  defining  the  number  of  joint  pairs  or 

edges  processed 
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Labeled  Common 


IERR0R 

Subroutine  Called 
None 

Error  Detection 

If  an  Invalid  Data  Code  number  Is  detected,  the  IERR0R  flag  is 
set  equal  to  one,  a diagnostic  printed,  and  a return  is  made  to  the 
calling  routine. 
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SUBROUTINE  ELEMNT 

This  routine  reads  and  checks  the  validity  of  element  definition 
data. 

Algorithm 

The  user  input  defining  the  elements,  Data  Codes  20,  30,  40  and  50, 
is  read  and  the  data  checked  for  validity.  If  an  error  is  found  , appropriate 
error  flags  are  set.  The  run  is  aborted  only  after  all  the  input  data 
Is  scanned  for  errors. 


Input/Output 

Tape  units  5 and  6 are  used  for  card  input  data  and  output  diagnostic 
messages,  respectively.  An  echo  of  the  input  is  also  output  on  tape  6. 


Argument  List 

IC0DE  'An  integer  scalar  defining  the  Data  Code  number 

NE  An  Integer  scalar  defining  the  element  numbers 

MAXJ  An  integer  scalar  defining  the  number  of  joints 

IE0D  An  Integer  scalar  flag  set  equal  to  one  when  the  end  of 

element  data  is  encountered 

LNPAGE  An  integer  scalar  defining  the  lines  per  page  print  limit 


Labeled  Common 
LPEP,  I ERROR 

Subroutines  Called 
None 


r 
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Error  Detection 


A check  is  made  for  element  numbers  out  of  sequence,  element  type 
code  out  of  sequence,  zero  area  for  bar  elements,  zero  thickness  for 
membrane  elements,  joint  numbers  out  of  range,  and  for  joints  not  defined. 
For  each  error  condition,  a diagnostic  is  printed.  The  IERR0R  flag  is 
set  equal  to  one  but  the  scan  of  input  data  is  allowed  to  continue. 
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SUBROUTINE  H0RNER 

This  routine  solves  a monotonically  increasing  polynomial  equation 
by  Horner's  method. 

Algorithm 

The  polynomial  is  evaluated  in  the  following  manner: 

V1  - C0EF(INUM)*TMPT  + C0EF(INUM-1) 

INUM-1 

VAL  * £ V.  , TMPT  + C0EF ( INUM- i ) 

1*2  1-1 

Input/Output 

None 

Argument  List 

C0EF  A real  array  of  coefficients  describing  the  polynomial 

INUM  An  integer  scalar  defining  the  number  of  coefficients 

TMPT  A real  scalar  defining  the  independent  variable 

VAL  A real  scalar  defining  the  dependent  variable 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 


None 


SUBROUTINE  JTEMP 


This  routine  reads  joint  temperature  data,  Data  Code  3,  and 
modifies  the  joint  temperature  table. 

Algorithm 

Temperature  data  Is  read  and  checked  for  validity,  then  the 
temperature  table  stored  In  array  TEMP  Is  updated  accordingly. 

Input/Output 

User  specified  joint  temperature  data  is  read  from  tape  5 and 
diagnostics  are  written  onto  tape  6. 

Argument  List 
None 

Labeled  Common 
J0RT 

Subroutines  Called 
None 

Error  Detection 

Checks  are  made  for  input  of  a data  code  other  than  3 and  for 
the  omission  of  the  joint  number  If  temperature  data  Is  present.  If 
an  error  Is  detected,  the  IERR0R  flag  Is  set  equal  zero  and  a return 
Is  made  to  the  calling  routine. 

! 
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SUBROUTINE  JTPRT 


This  routine  prints  the  contents  of  the  joint  coordinate  table  and 
the  joint  temperature  table. 

Algorithm 

The  contents  of  arrays  J0  and  TEMP  in  labeled  conuion  JZER0  are  printed. 
Input/Outout 

The  joint  coordinate  and  temperature  data  are  written  onto  tape  6. 
Argument  List 

LNPAGE  An  integer  scalar  defining  the  lines  per  page  print  limit 

NJT  An  integer  scalar  defining  the  total  number  of  joints 

Labeled  Common 
J0RT 

Subroutines  Called 
None 

Error  Detection 
None 


I 1 
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SUBROUTINE  JZER0 


This  routine  reads  user  Input  joint  coordinate  and  temperature 
data.  Data  Code  2,  and  forms  the  joint  coordinate  table  and  the 
temperature  table. 

Alqori thm 

Joint  coordinate  and  temperature  input  data  cards  are  read  and 
checked  for  validity.  The  joint  coordinate  and  the  temperature  tables 
are  formed  in  arrays  J0  and  TEMP,  respectively. 

Input/Output 

Joint  coordinate  and  joint  temperature  data  are  read  from  tape  5 
and  diagnostics  are  written  onto  tape  6. 

Argument  List 
None 

Labeled  Common 
CjJNST,  IERR0R,  J0RT 

Subroutines  Called 
None 

Error  Detection 

Checks  are  made  for  Input  of  a data  code  other  than  2 and  for  the 
omission  of  the  joint  number  if  coordinate  data  is  present.  If  an  error 
is  detected,  the  IERR0R  flag  is  set  equal  zero  and  a return  is  made  to 
the  calling  routine. 
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SUBROUTINE  LP8AR 

This  routine  forms  the  matrices  for  lumped  parameter  bar 
elements. 

Algorithm 

Using  the  element  geometry,  physical  properties  and  material 
properties  stored  In  labeled  common,  the  following  matrix  equations 
are  evaluated.  Matrix  size  is  given  in  parentheses  at  the  left. 


(3  x 1) 
(2  x 2) 
(2  x 2) 


(7  x 2) 


(1  x 2) 

0 x 1) 
(2  x 1) 


c * h k 
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~ax 

"ay 

_az 

ax 

ay 

az 

1.0 

-1.0_ 
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r 1 1 
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Lsn 

c 

0 
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k 


*Ta  ■ 2^231 
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(2  x 1) 
(1  x 1) 

0 X 1) 


5e 


V « A |pq| 
my  3 o v 


3(W  + <TjcfTB) 


(TJp-TB)  * 3(T,-dTQ- 


(7  x 7) 


Input/Output 

None 


Argument  List 

TBASE  A real  scalar  defining  the  base  temperature  of  the  structure 


Labeled  Common 
J0RT,  LPEP , LPBEM 


Subroutines  Called 
LPBPRT,  LPMK,  VECT 


Error  Detection 
None 
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Argument  List 


TBASE 


A real  scalar  defining  the  base  temperature  of  the  structure 


Labeled  Common 
J0RT,  LPEP,  LPBEM 


Subroutines  Called 
LPBPRT,  LPMK,  VECT 


Error  Detection 


SUBROUTINE  LPBPRT 


This  routine  prints  the  input  and  intermediate  calculations  for 
lumped  parameter  bar  elements. 

Algorithm 

This  routine  is  executed  only  in  runs  made  for  the  purpose  of  pro- 
gram checkout.  The  intermediate  calculations  for  the  elements  are 
printed  as  are  the  contents  of  labeled  common  LPEP  and  LPBEM. 

Input/Outout 

Intermediate  data  is  output  on  tape  6. 

Argument  List 
None 

Labeled  Common 
J0RT,  LPBEM,  LPEP 

Subroutines  Called 
None 

Error  Detection. 

None 

1 
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SUBROUTINE  LPBSM 

This  routine  saves  lumped  parameter  bar  element  data  on  external 
files. 

Alqorl thm 

The  matrix  partitions  representing  the  contribution  of  this  ele- 
ment to  each  of  the  output  matrices  are  written  onto  the  appropriate 
scratch  tape. 

Input/Output 

The  data  output  to  scratch  tapes  Is  as  follows: 


Tape 


Data 


7 

Element 

8 

CBAR 

9 

EB0T 

10 

EMASS 

11 

EPSSIG 

12 

FFBAR 

13 

KBAR 

14 

KLPC 

15 

SFBAR 

18 

Element 

Argument  List 

NBAR  An  Integer  scalar  defining  the  bar  element  number 

TMPAVG  A real  scalar  defining  the  element  average  temperature 

Labeled  Common 
LPBEM,  LPEP,  MTRL 


( ) 
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Subroutines  Called 
None 


SUBROUTINE  LPCAP 

This  routine  acts  as  the  executive  routine  for  computing  the 
lumped  parameter  cell  (approximate  parallel  piped)  matrices. 


Algori thm 

Routine  LPCG  is  Invoked  to  compute  cell  element  geometry.  Routines 
LPCKC,  LPCK  and  LPCFFB  are  then  called  to  compute  element  matrices  IT, 
k and  Fp  respectively.  Using  data  stored  In  labeled  common,  the 
following  matrix  equations  are  then  evaluated.  Matrix  size  Is  given 
in  parentheses  at  the  left. 


(12  x 12) 


(30  x 30) 


(36  x 36) 


c 3 h F 


m 


"Ipm 

"Ipm 

2mLPM 

Note:  See  rou- 
tine LPMM  for 
definition  of 

mLPM* 


Routine  LPCEBT  is  then  called  to  compute  matrices  6eT  and  eyA. 


Input/Output 

None 


Argument  List 

GC  A real  scalar  defining  the  cell  stiffness  matrix 

suppression  coefficient 

Labeled  Common 
J0RT,  LPCEM,  LPCV,  LPEP 


193 


Subroutines  Called 


LPCEBT , LPCFFB,  LPCG,  LPCK,  LPCKC,  LPCPRM,  LPCPRT,  LPCZM,  LPMM 

Error  Detection 
None 
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SUBROUTINE  LPCC 

This  routine  forms  the  compliance  matrix  for  lumped  parameter  cell 
elements. 


Algori thm 

The  compliance  matrix  for  the  upper  and  lower  surfaces  of  the  cell 
element  are  formed  independently.  These  two  matrices  each  of  order 
6x6  are  then  assembled  as  diagonal  partitions  of  the  12  x 12  compli- 
ance matrix  for  the  elemtnt.  Each  partition  is  formed  as  shown  below 
where  E is  Young's  Modulus  and  V is  Poisson's  Ratio. 


1 


1 -V  -V 
-V  1 -V 
-V  -V  1 


2(1+V) 

2(1+V) 

2(1+V) J 


Input/Output 

None 

Argument  List 
None 

Labeled  Common 
LPEP 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  LPCE3T 


This  routine  calculates  the  unassembled  element  deformations  due  to 
unit  temperature  change  at  the  joints  defining  a cell  element  and  the 
initial  thermal  deformations  for  the  element. 

Alqorl thm 

The  theoretical  definition  of  matrix  e^  as  a function  of  geometry, 
element  K factors,  and  the  coefficient  of  thermal  expansion  Is  as  follows: 


Po  Po  ro  so 

Pi  Pi  rl 

E11 

E12 

ht 9 

(9  x 4) 

(9  x 4) 

E21 

CM 

CM 

UJ 

(9  x 4) 

(9  x 4) 

E3  (4  x 8) 

E4  (8  x 8) 

where  the  partitions  E^»  E2j  , and  E3  are  null  and 


However,  the  matrices  e-j-^  and  6ej  used  by  the  code  are  single  column 
matrices.  Matrix  6eT,  Initial  thermal  deformations,  Is  formed  by 
multiplying  the  terms  in  each  column  shown  above  by  the  initial  thermal 
gradient  of  the  referenced  joints  and  summing  the  columns.  Matrix  ?Ta 
used  by  the  code  represents  unassembled  element  deformations  due  to  an 
average  unit  joint  temperature  change  for  the  element.  It  is  formed 
by  simply  summing  the  columns  shown  above.  Subsequently,  this  column 
matrix  is  scaled  by  the  average  joint  temperature  change  of  the  element. 
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Argument  List 
None 

Labeled  Coircnon 
LPCEM,  LPCV,  LPEP 

Subroutines  Called 
None 

Error  Detection 


SUBROUTINE  LPCFFB 

This  routine  generates  the  force  transformation  matrix  for  lumped 
parameter  cell  elements. 

Algorithm 

The  transformation  matrix  Fp  for  a cell  element  is  of  dimension 
36  x 30  and  is  given  by  the  matrix  equation 

FF  ’ <CF'  F£  * CQ'  Ff 

9 § A 

Matrices  Cp'  , F£  , Cg'  , Q£  , and  F^  are  functions  of  the  unit  edge 
vectors  a,  b,  c,  d,  e,  f,  the  thickness  proportionality  factors 
o,  S,  y » and  the  panel  K factors.  Matrix  Fp  is  assembled  directly  from 
this  data  as  opposed  to  assembling  these  matrices  and  solving  the  matrix 
equation  given  above. 

For  the  sake  of  presentation  so  that  each  element  of  Fp  can  be 
shown,  we  can  partition  Fp  as  follows 


Fr 


Fi?l 

(24  x 15) 

(24  x 15) 

% 

% 

(12  x 15) 

(12  x 15) 

where 
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Input/Output 

None 

Argument  List 

FFBAR  A real  array  for  the  output  transformation  matrix  for 

the  element 

Labeled  Common 
LPCV,  LPEP 

Subroutines  Called 
None 

Error  Detection 
None 


SUBROUTINE  LPCG 

This  routine  computes  vector  geometry  for  lumped  parameter  cell 
(approximate  parallelplped)  elements. 

Algorithm 

Thickness  Vectors 
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Sub-element  Geometry 
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K Factors 
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e?  - cos'1  (-c?  • 

08  ■ cos'1  ( c7  • ?7) 
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M - p V 

Input/Output 

None 

Argument  List 
None 

Labeled  Common 
J0RT,  LPCV,  LPEP 

Subroutines  Called 
VECT 

Error  Detection 
None 
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SUBROUTINE  LPCK 

This  routine  computes  the  transformed  element  stiffness  matrix 
for  lumper  parameter  cell  elements. 

Algori thm 

The  following  matrix  equation  is  evaluated  using  data  stored  In 
labeled  common.  The  size  of  the  resulting  matrix  Is  given  In 
parentheses  on  the  left. 

(36  x 36)  k * F-jr  F Fy 

Input/Output 

None 

Argument  List 
None 

Labeled  Common 
LPCEM,  WRK 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  LPCKC 


[ 


This  routine  forms  the  lumped  parameter  cell  element  stiffness 
and  stress  matrices. 


Alqorl thm 

The  following  matrix  equations  are  evaluated  using  data  stored  In 
labeled  common.  Matrix  dimensions  are  given  In  parentheses  at  the 
left. 

-1 

It  f o — I 

IT 


(30  x 30) 


4 8 

kl}  (vk  °ft  cki  °r}  + {vk  ar  Ck2 


7 4 \ /4  n 

(m  mi  i Vk 

(12  x 30) 

/ 8 v / 8 

Vs  \ 

Input/Output 

Diagnostics  are  written  onto  tape  6. 


Argument  List 

KB  A real  array  used  to  store  the  LPC  stiffness  matrix 

GC 


An  real  scalar  defining  the  cell  stiffness  matrix  suppres- 
sion coefficient 


KCFLAG 


An  integer  scalar  control  flag  which.  If  zero,  signals 
generation  of  matrices  KBAR  and  SPBAR,  and  If  one,  signals 
generation  of  CBAR 


Labeled  Common 


IERR0R,  LPCEM,  LPCV,  LPEP,  WRK 


; 


! 


« 
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Subroutings  Called 
LPCPRT,  SID,  WRMAT 

Error  Detection 

If  SID  cannot  Invert  KBAR,  a diagnostic  Is  printed,  intermediate 
calculations  dumped,  and  the  IERR0R  flag  set  equal  one.  Return  Is 
made  to  the  calling  routine.  The  loss  of  significant  digits  Is  checked 
and,  if  less  than  two,  a warning  diagnostic  Is  printed  and  execution 
is  allowed  to  continued. 
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SUBROUTINE  LPCPRM 

This  routine  prints  the  output  matrices  for  lumped  parameter  cell 
elements. 

Algorithm 

Matrix  partitions  for  cell  elements  and  the  contents  of  labeled 
common  LPCEM  are  printed. 

Input/Output 

Matrix  data  for  cell  elements  are  written  onto  tape  6. 

Argument  List 
None 

Labeled  Common 
LPCEM 

Error  Detection 
None 
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SUBROUTINE  LPCPRT 


This  routine  prints  the  input  and  Intermediate  calculations  for 
lumped  parameter  cell  elements. 

A1 qorl thm 

Intermediate  cell  element  calculations  and  the  contents  of  labeled 
conmon  LPEP  and  IPCV  are  printed. 

Input/Output 

Intermediate  cell  element  data  are  written  onto  tape  6. 

Argument  List 
None 

Labeled  Common 
LPEP,  LPCV,  J0RT 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  LPCSM 

This  routine  saves  lumped  parameter  cell  element  data  on  external 
f i 1 es . 


Algorithm 

The  matrix  partitions  representing  the  contribution  of  this  ele- 
ment to  each  of  the  output  matrices  are  written  onto  the  appropriate 
scratch  tape. 


Input/Output 


The  data  output  to  scratch  tapes  is  as  follows: 


Tape 


Data 


7 

Element 

8 

CBAR 

9 

EB0T 

10 

EMASS 

11 

EPSSIG 

12 

FFBAR 

13 

KBAR 

14 

KLPC 

15 

SFBAR 

18 

Element 

variable  table 


constant  table 


Argument  List 

NCELL  An  integer  scalar  defining  the  bar  element  number 

TMPAVG  A real  scalar  defining  the  element  average  temperature 


Labeled  Common 
LPCEM,  LPCV,  LPEP , MTRL 


■ 


t 
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Subroutines  Called 


None 

Error  Detection 
None 


SUBROUTINE  LPCZM 

This  routine  Initializes  the  matrix  arrays  for  lumped  parameter 
cell  elements. 

Alqorl thm 

All  arrays  In  labeled  common  block  LPCEM  are  set  to  zero. 

Input/Output 

None 

Argument  List 
None 

Labeled  Common 
LPCEM 

Subroutines  Called 
None 


SUBROUTINE  LPMAP 


i 

- 


This  routine  acts  as  the  executive  routine  for  computing  the 
lumped  parameter  membrane  (approxlate  parallelogram)  matrices. 

Algorithm 

Routine  LPMG  Is  called  to  compute  membrane  element  geometry. 

Routine  LPMSZD  Is  then  invoked  to  form  the  p,  q,  r,  and  s components  of 
matrices  S,  Z and  D.  Routines  LPMKC,  LPMK  and  LPMFFB  are  then  called 
to  assemble  matrices  F,  k and  Fp  respectively. 

Using  the  compliance  and  stiffness  matrices  and  F,  the  code 
forms  the  matrices  e and  c.  Routine  LPMM  Is  then  called  to  compute 
the  element  mass  matrix,  m.  Finally,  routine  LPMEBT  is  called  to 
form  matrices  aiy  and  ?Ta. 

Input/Output 

None 

Argument  List 
None 

Labeled  Conmon 

J0RT,  LPEP,  LPMDSZ,  LPMEM,  LPMV 
Subroutines  Called 

LPMEBT,  LPMFFB,  LPMG,  LPMK,  LPMKC,  LPMM,  LPMPRM,  LPMPRT,  LPMSZD,  LPMZM 

Error  Detection 
None 
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SUBROUTINE  LPMC 

This  routine  forms  the  compliance  matrix  for  lumped  parameter 
membrane  elements. 


AT  qori thm 

The  compliance  matrix  Ck  of  order  3 x 3 is  formed  from  the  material 
properties  of  the  element.  Using  Young's  Modulus,  E,  and  Poisson's 
Ratio,  NU,  matrix  Ck  is  assembled  as  shown  below. 


Input/Output 

None 


1 

F 


1 -NU 
-NU  1 

2(1  + NU) 


Argument  List 
None 

Labeled  Common 
LPEP 


Subroutines  Called 
None 

Error  Detection 
None 
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None 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  LPMEBT 

This  routine  calculates  unassembled  element  deformations  due  to 
unit  temperature  change  at  the  joints  defining  a membrane  element  and 
the  Initial  thermal  deformations  of  the  element. 

Alqorl thm 

The  theoretical  definition  of  matrix  5^  as  a function  of  geometry 
and  the  coefficient  of  thermal  expansion  is  as  follows: 


‘Ta 


where 


P 

"S 

31- 


3Le 


■8 


L2  a 


q 

31. 


3L- 


|pq| 
l4  - |rs| 

l6  * Ini 
L8  * IPS  I 


31, 


31. 


3L, 


3L, 


However,  matrices  eTA  and  6eT  used  by  the  code  are  single  column 
matrices.  Matrix  ie^,  initial  thermal  deformations,  is  formed  by 
multiplying  the  terms  in  each  column  shown  above  by  the  initial  thermal 
gradient  at  the  referenced  joints  and  summing  the  columns.  Matrix 
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i!|.  used  by  the  code  represents  unassembled  element  deformations  due 
to  an  average  unit  joint  temperature  change  for  the  element.  It  Is 
formed  by  simply  summing  the  columns  shown  above.  Subsequently,  this 
column  matrix  is  scaled  by  the  average  joint  temperature  change  for  the 
element. 


None 


Labeled  Common 
LPEP,  LPMEM,  IPMV 

Subroutines.  Called 
None 

Error  Detection 
None 


SUBROUTINE  LPMFFB 

This  routine  generates  the  transformation  matrix  for  the  lumped 
parameter  membrane  element. 


Alqorl thm 


The  transformation  matrix  Fjr  of  order  16  x 9 Is  assembled  as 
shown  below. 


exKl 

exKl 

Vl 


exK4 

eyK4 

«ZK4 


-f 


1 1 


X 

y 

z 


fzh 

f3K3 

Vs 


Input/Output 

None 


Argument  List 
None 


223 


Labeled  Common 
LPEP,  LPMEM,  LPMV 

Subroutines  Called 
None 

Error  Detection 
None 


SUBROUTINE  LPMG 


This  routine  computes  vector  geometry  for  lumped  parameter  membrane 
parallelogram  elements. 

Algori thm 

Edge  Vectors 

pq”  * q - p"  and  qp  * - pq 

rq  ■ q"  - r and  qr  * - ref 

rF  * F - r and  Fr  = - rF 

pF  ■ F - p and  Fp  =■  - pF 

a - pq  / |pq| 

5"  » rq  / |rq| 

c * rs  / |rs| 

cT  *>  pF  / |p?| 

e » ps  x pq  / |psxpq| 

K Factors 

* -(a  x qr)  • c / (e  x qr)  • c 

* -(?  x ps)  • e / (bxrs)  • e 

K3  ■ -K2  x qp)  • e / (c  x sp)  ■ e 

K4  - -K3  (c  x ip)  • a / (e  x sp)  -a 

K5  ■ -(a  • ¥)  - <2  (F  • ¥)  - K3  (c  • I) 

Comer  Angles 
6p  » cos"1  (-a  • 3) 

e$  ■ cos-1  ( c • <J) 

eq  ■ cos"1  ( I • F) 
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er  * cos"1  (-c  • F) 

Volumn  and  Mass 
V * i£  (pq  x rq  + rs  x p?) 
M * p V 


Input/Output 

None 

Argument  List 
None 

Labeled  Common 
J0RT,  LPEP,  LPMV 

Subroutines  Called 
VECT 

Error  Detection 
None 
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SUBROUTINE  LPMK 

This  routine  computes  the  transformed  element  stiffness  matrix 
for  lumped  parameter  membrane  elements. 

Alqorl thm 

The  following  matrix  equation  is  evaluated  where  k Is  of  order 
16  x 16. 

k ■ Fjr  IT  Fjr1 

Input/Output 

None 

Argument  List 

KLPM  A real  array  for  the  element  k matrix 

KBAR  . A real  array  for  the  element  stiffness  matrix 

FFBAR  A real  array  for  the  unassembled  to  global  transformation 

matrix 

NK  An  Integer  scalar  defining  the  number  of  rows  and 

columns  of  array  KLPM 

NKB  An  Integer  scalar  defining  the  number  of  rows  and 

columns  of  array  KBAR 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  LPMKC 


This  routine  forms  the  lumped  parameter  membrane  stiffness  matrix. 


Algorithm 

The  flexibility  matrix,  d,  for  the  membrane  element  is  first  formed 
by  evaluating  the  matrix  equation 


d - (T  ^ T +TTDT  +TTDT  +TT0T) 

' p p p q qq  r rr  s s s' 

where  the  actual  assembly  of  matrix  d is  done  element  by  element  knowing 
the  configuration  of  the  T and  D matrices. 


After  the  assembly  of  matrix  d,  routine  SID  is  called  to  obtain  the 
inverse  which  is  the  element  stiffness  matrix  F. 

Input/Output 

Diagnostics  are  written  onto  tape  6. 


Argument  List 

FK  A real  scalar  defining  the  element 

JMN  An  Integer  array  containing  membrane  joint  numbers  JP, 

JQ,  JR,  JS 

KBAR  A real  array  for  the  LPM  stiffness  matrix 

Labeled  Common 
LPMDSZ 

Subroutines  Called 
LPMPRT,  SID 
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Error  Detection 

If  SID  cannot  invert  KBAR,  a diagnostic  is  printed,  intermediate 
calculations  dumped,  and  the  IERR0R  flag  set  equal  one.  Return  is  then 
made  to  the  calling  routine.  The  loss  of  significant  digits  Is  also 
checked,  and.  If  less  than  2,  a warning  diagnostic  Is  printed  and  exe- 
cution is  allowed  to  continue. 


SUBROUTINE  IP MM 


This  routine  forms  the  mass  matrix  for  lumped  parameter  membrane 
elements. 

Algori thm 

The  element  mass  matrix  m of  order  16  x 16  is  assembles  as  shown 
below. 


Input/Output 

None 

Argument  List 

EMASS  A real  array  in  which  the  mass  matrix  is  to  be  generated 

N An  integer  scalar  defining  the  maximum  dimensions  of 

the  array  EMASS 

PV  A real  scalar  defining  the  quantity  pv 
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Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  LPMPRM 

This  routine  prints  the  output  matrices  for  lumped  parameter 
membrane  elements. 

Alqorl thm 

Matrix  partitions  for  membrane  elements  and  the  contents  of 
labeled  common  LPMEM  are  printed. 

Input/Output 

Matrix  data  for  membrane  elements  are  printed  on  tape  6. 

Argument  List 
None 

Labeled  Common 
LPMEM 

Subroutines  Called 
WRMAT 

Error  Detection 
None 
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SUBROUTINE  LPMPRT 

This  routine  prints  the  input  and  intermediate  calculations  for 
lumped  parameter  membrane. 

Algorl thm 

Intermediate  membrane  element  calculations  and  the  contents  of 
labeled  common  LPEP,  LPMV  and  LPMDSZ  are  printed. 

Input/Output 

Intermediate  membrane  element  data  are  printed  on  tape  6. 

Argument  List 
None 

Labeled  Common 

JJJRT,  LPEP,'  LPMDSZ , LPMV 

Subroutines  Called 
None 

Error  Detection 


None 


SUBROUTINE  LPMSM 


This  routine  saves  lumped  parameter  membrane  element  data  on  external 
files. 

Algorithm 

The  matrix  partitions  representing  the  contribution  of  this  element 
to  each  of  the  output  matrices  are  written  onto  the  appropriate  scratch 
tape. 

Input/Output 


The  data 

output  to  scratch  tapes  Is 

Tape 

Oata 

7 

Element  variable  table 

8 

CBAR 

9 

EB0T 

10 

EMASS 

11 

EPSSIG 

12 

FFBAR 

13 

KBAR 

14 

KLPC 

15 

SFBAR 

18 

Element  constant  table 

Argument  List 

NMEM  An  Integer  scalar  defining  the  membrane  element  number 

TMPAVG  A real  scalar  defining  the  element  average  temperature 

Labeled  Common 
LPEP,  LPMEM,  LPMV,  MTRL 
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Subroutines  Called 
None 

Error  Detection 
None 


SUBROUTINE  LPMSZD 

This  routine  computes  the  area  matrices  (Sp,  Sq,  Sr,  Ss),  the 
global  transformation  matrices  (Zp,  Zq,  Zr,  Zs),  and  the  D- tilde 
matrices  (ftp,  ftq,  Or,  fts)  used  to  compute  the  lumped  parameter  membrane 
element  damping,  stiffness,  and  strain  matrices. 


Algorithm 

The  corner  angles,  8p,  eq,  er,  and  es,  are  tested  for  equality 
which  would  indicate  the  element  is  a parallelogram.  If  they  are  not 
equal,  the  following  six  steps  are  executed  for  each  of  the  four  element 
sides  using  the  corresponding  edge  vector  and  corner  angle. 


1) 

2) 

3) 

4) 


a * ijr  |ps|  (constant  for  all  sides) 
b 3 j |pq|  (substituting  rq,  rs"  and  ps) 

A * 

a b sin  ep  (substituting  eq,  er  and  es) 


1 


aj 


5)  Call  routine  LPMZ  to  compute  matrix  Z 

6)  Call  routine  LPMD  to  compute  matrix  ft 


If  the  element  Is  a parallelogram,  the  S,  Z and  D matrices  cor- 
responding to  each  side  of  the  element  are  equal.  In  this  case,  the 
S,  Z and  0 matrices  are  computed  for  the  first  side  and  copied  for  the 
other  three  sides. 

After  completing  the  above  procedure,  If  the  element  Is  a parallelo- 
gram, routine  LPMS1  Is  called  to  form  matrix  op  If  the  element  Is  not 
a parallelogram,  routine  LPMS2  generates  matrix  op 
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Input/Output 

None 


Argument  List 

CK  A real  array  for  the  compliance  matrix 

T A real  scalar  defining  the  membrane  thickness 

ZETAPQ  A real  scalar  defining  the  material  or  stress  orientation 

angle 

Labeled  Common 
LPMDSZ,  LPMEM,  LPMV 

Subroutines  Called 
LPMD,  LPMS1 , LPMS2,  LPMZ 

Error  Detection 
None 
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SUBROUTINE  LPMS1 

This  routine  forms  the  lumped  parameter  membrane  stress  matrix  for 
parallelogram  elements. 

Alqorl thm 

The  stress  matrix  of  order  3x9  for  a parallelogram  membrane 
element  Is  given  by  the  matrix  equation 

" H (Tp  + Tq  + Tr  + V 

or,  more  explicitly,  In  terms  of  the  elements  of  matrix  Z,  the  vector 
magnitudes  a and  b,  the  thickness  t,  and  the  element  K factor  Is  given 


by 

C1 

Z11 

T~ 

zn 

T~ 

zn  zn 
"5“  “5“ 

Z12 

a 

Z12 

a 

Z12 

a 

Z12 

a 

ay 

1 

2t 

C2 

Z21 

“ET 

Z21 

“5“ 

Z21  Z21 
~ET  ~B~ 

Z22 

a 

Z22 

a 

Z22 

a 

Z22 

a 

C3 

Z31 

“5“ 

Z31 

~F~ 

Z31  Z31 

~r  ~s~ 

Z32 

a 

Z32 

a 

Z32 

a 

Z32 

a 

- • 

— 

i 

where 

C1  * Z13 

+ K)/a 

c2  - Z23  (1 

+ K)/a 

c3  8 Z33  (1 

+ K)/a 

Input/Output 

None 

Argument  List 

FK  A real  scalar  defining  the  K factor 
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SFBAR  A real  array  for  the  element  stress  matrix 

t 

THICK  A real  scalar  defining  the  membrane  thickness 


Labeled  Common 
LPMDSZ 

Subroutines  Called 
None 

Error  Detection 
None 


SUBROUTINE  LPMS2 

This  routine  forms  the  lumped  parameter  membrane  stress  matrix 
for  approximate  parallelogram  elements. 


Algorithm 

The  stress  matrix  of  order  3 x 9 for  an  approximate  parallelogram 
element  Is  given  by  the  matrix  equation 

Of  » -X  (Z  S T + Z S T + Z S T + Z S T ) 
r At  ppp  q q q rrr  sss 

or,  more  explicitly,  In  terms  of  the  elements  of  matrix  Z for  each 
edge,  the  vector  magnitudes  a and  b for  each  edge,  the  thickness  t,  and 
the  element  K factor  is  given  by: 


T*  Ji 


z-n  zdii 


.gIL 


l21 


:3  ^ ^ 
q p 


4p21 

bP 


'rll 

V 

*r21 

V 

-r_31 

V 


sU 

s 


~s21 

b. 


"s31 

5s 


Zql2  Zrl2  Zpl2  Zs12 


Zq22  Zr22  Zp22  Zs22 


Zq32  Zr32  Zp32  Zs32 


where 


:1  " I 


n±+zjiii  + K(^i  + ^ii 

aq 


l aP 


a a 
r s 


Co  ■ 


2 7 


C3  " 7 


!e23  + ^23  + (fr23  W 

l ap  aq  \ ar  as  I 

Zp33  + £^33.  + K /Zr33  h22 

a a V a a / 

p q ' r s' 
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Input/Output 

None 


Argument  List 

FK  A real  scalar  defining  the  K factor 

SFBAR  A real  array  for  the  element  stress  matrix 

THICK  A real  scalar  defining  the  membrane  thickness 

Labeled  Common 
LPMDSZ 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  LPMZ 

This  routine  forms  the  lumped  parameter  membrane  global  translation 
matrix. 


Algorithm 


Matrix  Z of  order  3 x 3 is  formed  as  shown  below: 


where 


Z 


1 

sin(THETA) 


zn 

Z21 


Z12  Z13 
Z22  Z23 


L 31  Z32  Z33j 


z^  * cos2(ZETA) 

z21  « sin2(ZETA) 

z31  =■  -sin(ZETA)  cos(ZETA) 

z i 2 3 cos2(THETA-ZETA) 

z22  = s1n2(THETA-ZETA) 

z32  * sln(THETA-ZETA)  cos (THETA- ZETA) 

z13  - 2 cos(THETA-ZETA)  cos(ZETA) 

z23  * -2  sln(THETA-ZETA)  sin(ZETA) 

z33  * sin(THETA-ZETA)cos(ZETA)-cos(THETA-ZETA)sin(ZETA) 


Input/Output 

None 

Argument  List 

THETA  A real  scalar  defining  the  corner  angle 
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JS 
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SUBROUTINE  LPMZM 

This  routine  initializes  the  matrix  arrays  for  lumped  parameter 
membrane  elements. 

Algorl thm 

All  arrays  in  labeled  common  block  array  LPMEM  are  set  to  zero. 

Input/Output 

None 

Argument  List 
None 

Labeled  Common 
LPMEM 

Subroutines  Called 
None 

Error  Detectl on 


None 


SUBROUTINE  LTRMLT 

This  routine  performs  a transpose  multiply  matrix  operation. 
Alqori thm 

The  following  matrix  operation  Is  performed: 

C - AT  B 

Input/Output 

None 


Argument  List 


A A real  array  for  the  matrix  to  be  transposed 

M An  Integer  scalar  defining  the  number  of  rows  of  A 

N • An  Integer  scalar  defining  the  number  of  columns  of  A 

MAXRA  An  Integer  scalar  defining  the  max  rows  of  A 

MAXCA  An  Integer  scalar  defining  the  max  columns  of  A 

B A real  array  for  matrix  B 

I An  integer  scalar  defining  the  number  of  columns  of  B 

C A real  array  for  the  product  matrix  C 


Labeled  Conmon 
None 


Subroutines  Called 
None 


Error  Detection 
None 
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SUBROUTINE  MATDES 

This  routine  processes  the  material  description  input  data  records 
for  a particular  material  In  the  material  property  tables,  Oata 
Code  10. 

Algorithm 

The  first  card  of  the  material  description  has  been  read  by  routine 
MTLM0D  and  is  stored  in  array  REC.  The  routine  transfers  information 
from  REC  to  array  MRDES  until  a full  word  of  blanks  is  encountered.  The 
routine  reads,  checks,  processes  and  echos  the  input  for  continuation 
cards  of  the  material  description.  When  the  description  has  been  com- 
pletely processed,  the  pointers  pertaining  to  the  beginning  and  ending 
of  the  description  words  stored  in  array  MRDES  are  set. 

Input/Qutout 

Material  descriptions  are  read  from  tape  5 and  diagnostics  are 
written  on  tape  6. 

Argument  List 

REC  An  alphanumeric  array  containing  the  input  data  record 

C0NT  An  alphanumeric  scalar  containing  the  continuation  field 

of  input  record,  any  non-blank  character  will  indicate 
a continuation 

Labeled  Common 

IDEN,  IERR0R,  LIMITS,  MRTL 

Subroutines  Called 
None 

Error  Detection 

Checks  are  made  for  material  reference  numbers  being  out  of  seouence, 
for  invalid  Oata  Code  numbers,  and  for  insufficient  space  allocated  for 
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input.  If  an  error  is  detected,  IERR0R  is  set  equal  one,  a diagnostic 
is  printed,  and  a return  is  made  to  the  calling  routine. 


SUBROUTINE  MATHD 

This  routine  writes  a F0RMAT  matrix  header  record. 


Algorithm 

A record,  twelve  words  In  length,  Is  written  on  tape  TAPEN0  as 
shown  below. 

Word  Data 

1 -1 

2 0 

3 9 

4 X 

5 X 

6 X 

7 X 

8 X. 

9 X. 

10  MF 

11  I 

12  J 

Input/Output 

A matrix  header  record  is  written  on  tape  TAPEN0. 


Type  Description 

matrix  header  code 
compression  code 
words  remaining  in  record 


matrix  name  (1  leading  character  with 
blank  fill) 


matrix  subscript 
number  of  rows 
number  of  columns 


Argument  List 


TAPEN0 

NAME 

MF 

I 

J 


An  Integer  scalar  defining  the  logical  tape  number 

An  alphanumeric  array  for  the  matrix  name  (6  characters) 

An  Integer  scalar  defining  the  matrix  subscript 

An  Integer  scalar  defining  the  number  of  rows  in  the  matrix 

An  Integer  scalar  defining  the  number  of  columns  In  the 
matrix 
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Labeled  Common 


None 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  MATTR 

This  routine  writes  a F0RMAT  matrix  trailer  record. 

Alqorl thm 

A record,  four  words  in  length,  is  written  on  tape  TAPEN0 
as  shown  below. 


Word 

Data 

Type 

Description 

1 

-2 

integer 

matrix  trailer  code 

2 

0 

Integer 

compression  code 

3 

1 

Integer 

words  remaining  In  record 

4 

0 

Integer 

dummy  data 

Input/Output 

A matrix  trailer  record  is  written  on  tape  TAPEN0. 

Argument  List 

TAPEN0  An  integer  scalar  defining  the  logical  tape  number 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detected 
None 
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SUBROUTINE  MLTMTR 

This  routine  forms  the  product  of  two  matrices. 

Algorithm 

(C)  « (A)  (B) 

Input/Output 

None 


Argument  List 


A 

H 

N 

MAXR 

MAXC 

B 

I 

C 


A real  array  for  the  first  input  matrix 

An  integer  scalar  defining  the  usable  rows  in  matrix  A 

An  integer  scalar  defining  the  usable  columns  in  matrix  A 

t 

An  integer  scalar  defining  the  dimensioned  row  size  of 
matrix  A 

An  integer  scalar  defining  the  dimensioned  row  size  of 
matrix  B 

a real  array  for  the  second  input  matrix 
A integer  scalar  defining  the  usable  columns  of  matrix  B 
A real  array  for  the  output  matrix 


Labeled  Common 
None 

Subroutines  Called 
None 


Error  Detection 
None 
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SUBROUTINE  HLTM0D 

This  is  the  executive  routine  for  the  module  which  reads  and  processes 
the  material  property  table.  Data  Code  10. 

Algorithm 

First  the  lengths  of  the  coefficient  table  and  the  materials  descrip- 
tion table  are  initialized. 

A material  property  data  card  is  read,  checked  for  errors,  and  an 
echo  of  the  data  is  printed.  If  the  card  is  descriptive  text  for  the 
material,  subroutine  MATDES  is  called  to  process  it  and  any  continuation 
cards.  If  the  card  defines  a property  of  the  material,  subroutine  PR0P 
is  called  to  process  the  input.  This  procedure  is  repeated  until  all 
input  for  all  materials  is  processed. 

The  necessary  constants  are  saved  in  labeled  common  CONST  and  the 
assembled  material  property  data  is  written  to  tape  1 in  the  form  of 
a standard  F0RMAT  matrix.  Finally,  a report  of  the  output  coefficients 
is  printed  on  tape  6. 

Input/Output  . 

The  material  property  table  is  input  on  tape  5.  Material  property 
coefficients  and  diagnostics  are  output  on  tape  6.  The  material  property 
data  also  output  on  tape  1 for  use  by  the  analysis  modules  following 
the  initial  generator. 

Argument  List 
None 

Labeled  Coimon 

C0NST , IOEN , IERR0R,  LIMITS,  MTRL 
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Subroutines  Cal 1 ed 


MATDES,  PR0P 
Error  Detection 

Checks  are  made  for  omissions  in  the  input  for  a material,  for  a 
material  reference  number  out  of  range  for  which  space  has  been 
allocated,  for  invalid  Data  Code,  and  for  material  reference  numbers 
out  of  sequence.  If  an  error  is  detected,  appropriate  diagnostics 
are  printed,  the  IERR0R  flag  is  set  equal  one,  and  a return  is  made  to 
the  calling  routine. 
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SUBROUTINE  0VER3 


This  routine  searches  the  constraint  table  for  more  than  three 
entries  per  joint. 

Algorithm 

It  is  required  that  the  system  of  constraints  at  a joint  for 
translation  be  statically  determinate.  Therefore,  for  translation, 
the  table  is  searched  to  determine  if  there  are  more  than  three  input 
constraints  acting  at  a joint. 

Input/Output 

Diagnostics  are  written  onto  tape  6. 

Argument  List 

IC0N  An  integer  array  for  the  constraint  table 

NCT  An  integer  scalar  defining  the  number  of  records  in  the 

constraint  table 

JERRS  An  integer  scalar  error  condition  flag  for  the  constraint 

table 

Labeled  Common 
IERR0R 

Subroutines  Called 
None 

Error  Detection 

If  more  than  three  constraints  are  found  at  a joint,  a diagnostic 
Is  printed,  the  IERR0R  Is  set  equal  one,  and  a return  is  made  to  the 
calling  routine. 
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SUBROUTINE  PARTN 

This  routine  partitions  a file  which  is  being  sorted  by  routine 
QKS0RT. 

Algori thm 

Pointers  are  set  to  the  top  of  the  file  and  to  the  bottom  of  the 
file.  A pointer  is  set  to  the  pivot  record,  that  is,  the  record  that 
is  to  serve  as  the  partitioning  element.  The  purpose  is  to  end  up  with 
all  the  larger  records  above  the  pivot  element  and  all  the  smaller 
records  below.  The  number  of  records  In  the  file  Is  calculated,  then  a 
comparison  is  made  between  the  pivot  record  (which  Is  initially  at  the 
bottom)  and  the  highest  record.  If  the  pivot  record  Is  smaller,  then 
the  pointer  to  the  highest  record  Is  moved  down  to  the  next  record. 

If  the  pivot  is  not  smaller,  then  a swap  Is  made  between  the  pivot 
record  and  the  compared  record.  The  pointer  to  the  lowest  record  is 
moved  up  and  comparisons  begin  between  the  pivot  record  and  the  records 
below  it.  The  file  Is  partitioned  when  the  upper  and  lower  pointers  are 
adjacent.  __ 

Input/Output 

Error  messages,  if  any,  are  written  to  file  6. 

Argument  List 

REC  An  Integer  array  of  records  to  be  sorted 

CH6SEQ  An  Integer  array  to  specify  the  original  positions  of  the 

sorted  records 

NREC  An  integer  scalar  specifying  the  number  of  records  in  array 

REC 

LENREC  An  Integer  scalar  specifying  the  length  of  the  records  in 
array  REC 
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Labeled  Common 
ABC 

Subroutines  Called 
SWAP 

Error  Detection 


i 


A check  is  made  at  the  end  of  the  partitioning  to  be  sure  that  the 
file  pointers  are  correct,  that  Is,  the  ending  low  pointer  should  be 
inmediately  after  the  ending  high  pointer.  If  this  is  not  true,  then 
the  low,  high  and  pivot  pointers  are  printed  along  with  a diagnostic 
and  the  records  of  the  file  passed  to  PARTN  for  partitioning.  Execution 
is  then  terminated. 


SUBROUTINE  PASSM 


This  is  the  driver  routine  for  the  module  which  assembles  output 
matrices  PRUPT,  PRUF  and  ECT. 

Algori thm 

After  initializing  the  intermediate  error  flag,  NERR,  and  re- 
winding files  16,  17  and  18,  routines  PASSM1 , PASSM2,  PASSM4,  and 
PASSM5  are  called  to  assemble  matrices  ECT,  PRUPT  and  PRUF.  File  16 
contains  constraint  description  data,  file  18  contains  element  joint 
numbers  as  well  as  other  element  constants,  and  file  17  Is  subsequently 
used  as  scratch. 

Input/Output 

None 

Argument  List 
None 

Labeled  Common 

CONST,  ED0F,  1EDGE,  IERR0R,  ISEQ 

Subroutines  Called 

PASSM1 , PASSM2 , PASSM4 , PASSM5 

Error  Detection 

If  NERR  is  returned  as  non-zero  by  PASSM2,  then  IERROR  is  set  equal 
one  and  a return  is  made  to  the  calling  routine. 
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SUBROUTINE  PASSM1 


This  routine  assembles  and  outputs  matrix  ECT  and  assembles  Inter- 
mediate matrix  PFT. 

Algorithm 

After  writing  matrix  headers  on  files  17  and  1 for  matrices  PTF 
and  ECT,  the  bar  data  is  processed  followed  by  membranes  and  cells. 

The  same  procedure  takes  place  In  each  case. 

The  element  constants  for  the  next  element  are  read  from  file  18 
Into  array  I ECT.  Using  the  edge  degree  of  freedom  numbers  stored  In 
array  ID0F,  array  IECT  is  augmented  and  output  to  file  1.  Array  NPF 
Is  then  set  to  the  degree  of  freedom  numbers  corresponding  to  each  of  the 
element  forces  and  output  to  file  17. 

In  the  case  of  point  mass  elements,  no  data  is  output  to  file  1 
for  matrix  ECT.  However,  array  NPF  is  assembled  and  output  to  file  17 
In  a similar  manner  as  the  other  elements. 


Input/Output 

Matrix  ECT  Is  output  to  tape  1. 
to  hold  the  PTF  matrix  temporarily. 
LPCSM  and  LPMSM  Is  input  on  tape  18. 
mediate  calculations  If  flagged. 


Tape  17  is  used  as  a scratch  unit 
ECT  data  from  the  routines  LPBSM, 
Tape  6 is  used  to  output  inter- 


Argument  List 


I EDGE 
ID0F 

IECT 

NPF 


An  Integer  array  of  joint  pairs  defining  each  edge  D0F 

An  Integer  array  relating  each  edge  element  force  to  an 
edge  D0F 

An  Integer  array  of  element  constants 
An  Integer  array  used  to  store  a column  of  PFT 
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Labeled  Common 
C0NST,  IERR0R 

Subroutines  Called 
MATHD,  HATTR 

Error  Detection 
None 


SUBROUTINE  PASSM2 

This  routine  assembles  Intermediate  matrix  PUPT. 

Algorithm 

After  writing  a matrix  header  on  file  18  for  matrix  PUPT,  con- 
straint data  is  read  from  file  16  into  arrays  IC0N  and  0BLIQ.  The 
three  columns  of  IC0N  contain  the  constraint  number,  the  joint  at 
which  the  constraint  acts,  and  the  direction  description.  Values  of  1, 

2 and  3 for  direction  description  Indicate  the  global  X,  Y and  Z 
directions,  respectively.  Values  greater  than  3 are  pointers  to  array 
(JBLIQ  which  contains  the  direction  cosines  of  oblique  constraints. 

Using  arrays  IC0N  and  0BLIQ,  matrix  PUPT  Is  assembled  by  omitting 
rows  corresponding  to  global  degrees  of  freedom  which  are  constrained 
and  placing  unity  in  remaining  rows  at  the  corresponding  column.  In 
the  case  of  oblique  constraints,  routine  PASSM3  Is  called  to  transform 
global  X,  Y and  Z unit  vectors  Into  contributions  in  the  global  and/or 
oblique  unconstrained  degrees  of  freedom. 

Array  I D0F  is  used  to  flag  constrained  degrees  of  freedom  as  zero, 
unconstrained  degrees  of  freedom  as  one,  and  degrees  of  freedom  with 
duplicate  constraints  as  less  than  zero. 

Input/Output 

Constraint  data  Is  Input  from  tape  16.  Matrix  PUPT  is  output  to 
tape  18.  Tape  6 Is  used  for  printing  diagnostics  and  Intermediate 
calculations  If  flaged. 

Argument  List 

IEDGE  An  Integer  array  of  joint  pairs  defining  each  edge  D0F 

ID0F  An  Integer  array  used  to  flag  constrained  TD0F  and  to  count 

and  detect  duplicate  global  constraints 
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IC0N  An  Integer  array  defining  each  constraint  created  by  the 

constraint  processor  module  and  written  to  unit  16 

0BLIQ  A real  array  of  direction  cosines  of  oblique  constraints 

also  on  unit  16 

NERR  An  Integer  scalar  used  as  an  error  flag 

Labeled  Common 
C0NST , IERR0R 

Subroutines  Called 
MATHD,  MATTR,  PASSM3 

Error  Detection 

A test  Is  made  for  duplicate  constraints,  and,  If  detected,  the 
NERR  flag  Is  set  equal  one  and  a return  Is  made  to  the  calling 
routine.  A diagnostic  is  printed  on  tape  6. 
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SUBROUTINE  PASSM3 

This  routine  assembles  contributions  to  intermediate  matrix  PUPT 
for  joints  which  have  oblique  reactions. 

Algori thm 

The  equation  [AXB]"1  « [C]  is  solved  to  obtain  the  contributions 
to  matrix  PUPT  for  a joint  with  oblique  constraints.  [A]  is  an  Identity 
of  order  3 and  [B]  contains  the  direction  cosines  of  from  1 to  3 obli- 
que constraints.  Both  [A]  and  [B]  are  stored  in  array  PF.  The  code 
initializes  the  leading  3x3  partition  of  array  PF  as  an  Identity. 

After  solving  for  [C],  the  rows  corresponding  to  unconstrained 
degrees  are  assembled  from  each  column  in  arrays  P and  IP  In  compressed 
form.  Each  column  of  matrix  PUPT  so  obtained  is  then  output  to  file  18. 

Input/Output 

Columns  of  matrix  PUPT  are  output  to  tape  18.  Tape  6 is  used  for 
printing  intermediate  calculations  if  flaged. 

Argument  List 

IRF  An  Integer  array  which  is  the  partition  of  array  ID0F  for 

the  joint  being  processed 

PF  A real  array  where  columns  1 to  3 contain  unit  vectors  in 

the  X,  Y,  Z global  directions  and  the  remaining  columns 
contain  the  components  of  reactions  acting  at  this  joint 

NR  An  Integer  scalar  defining  the  number  of  reactions  at 

this  joint 

NERR  An  Integer  scalar  used  as  an  error  flag 

IC0L  An  Integer  scalar  defining  the  column  location  in  PUPT 

of  the  last  matrix  element  output 

IR0W  An  Integer  scalar  defining  the  row  location  In  PUPT  of 

the  last  matrix  element  output 
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NPASSM  An  Integer  scalar  used  to  signal  printing  of  intermediate 
data 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 

A test  Is  made  for  duplicate  constraints,  and,  if  detected,  the 
NERR  flag  Is  set  equal  one  and  a return  Is  made  to  the  calling 
routine. 


I 
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SUBROUTINE  PASS M4 

This  routine  determines  the  unconstrained  degree  of  freedom  (UD0F) 
row  format,  the  reordered  UD0F  for  SEQWF,  prints  these  row  formats, 
and  outputs  Intermediate  matrix  PRP. 

AT  gorl thm 

Initially,  array  IEDGE  contains  pairs  of  joint  numbers  Identifying 
each  edge  degree  of  freedom.  Two  joint  numbers  are  stored  In  a single 
word  by  scaling  the  first  joint  number  by  10000  and  adding  the  second 
joint  number. 

Arrays  IEDGE  and  ISEQ  are  restructured  to  contain  the  identification 
of  each  unconstrained  degree  of  freedom.  The  Identification  for  joint 
degrees  of  freedom  consists  of  a joint  number  in  array  IEDGE  and  the 
Integer  1,  2 or  3 In  array  ISEQ  Indicating  global  X,  Y or  Z degree  of 
freedom,  respectively.  The  identl fl cation  for  an  edge  degree  of  free- 
dom consists  of  the  first  joint  number  in  array  IEDGE  and  the  negative 
of  the  second  joint  number  in  array  ISEQ. 

The  joint  number  pairs  initially  contained  in  array  IEDGE  are 
extracted  and  stored  in  arrays  IEDGE  and  ISEQ  at  locations  correspond- 
ing to  their  proper  positions  in  the  unconstrained  degree  of  freedom 
row  format.  Then  using  the  array  ID0F  containing  flags  identifying 
constrained  and  unconstrained  joint  degrees  of  freedom,  the  partition 
of  arrays  IEDGE  and  ISEQ  are  set  to  appropriate  values. 

Arrays  IEDGE  and  ISEQ  are  then  scanned  to  determine  the  reordered 
unconstrained  degree  of  freedom  format.  The  reordered  position  of 
entries  In  arrays  IEDGE  and  ISEQ  is  stored  in  array  ID0F. 

Input/Output 

Reports  of  the  unconstrained  degrees  of  freedom  and  the  reordered 
UO0F  row  formats  are  printed  on  tape  6. 
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Argument  List 

IEDGE  An  integer  array  of  joint  pairs  defining  each  edge  D0F 

IMF  An  Integer  array  of  flags  identifying  joint  constrained 

and  unconstrained  D0F 

ISEQ  An  Integer  array  used  for  intermediate  storage 

Labeled  Common 
C0NST,  IERR0R 

Subroutines  Called 
MATHO,  MATTR,  PASSM3 

Error  Detection 
None 
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SUBROUTINE  PASSM5 


This  routine  assembles  and  outputs  matrices  PRUF  and  PRUPT  from  data 
stored  In  array  ID0F  and  Intermediate  matrices  PUPT  and  PTF  which  are 
on  tape. 

Algorl thm 

Array  IEDGE  Is  initialized  as  zero  for  a length  equal  to  the  total 
number  of  degrees  of  freedom.  Matrix  PUPT  Is  then  read  from  file  18 
one  column  at  a time.  Using  the  reordered  row  positions  stored  In  array 
ID0F,  the  reordered  elements  of  matrix  PRUPT  are  stored  In  arrays  IEDGE 
and  ISEQ.  Array  IEDGE  contains  a positive  or  negative  Integer  at  the 
row  location  corresponding  to  the  column  of  matrix  PUPT  read  from  file 
18.  A positive  Integer  Indicates  a single  value  of  unity  for  that  column 
of  matrix  PRUPT  at  the  row  position  equal  to  the  Integer  value.  A 
negative  Integer  Indicates  more  than  one  value  is  present  in  the  column. 
This  occurs  only  at  joints  where  oblique  constraints  are  present.  In 
this  case,  the  absolute  value  of  the  Integer  points  to  a location  in 
array  ISEQ  containing  the  number  of  values  present  in  the  column.  Im- 
mediately following  In  array  ISEQ,  are  pairs  of  values  and  reordered 
row  locations  of  that  column. 

After  sorting  the  value/location  pairs  for  a column  In  array  ISEQ, 
the  column  of  matrix  PRUPT  Is  output  to  file  1 using  the  data  con- 
tained In  arrays  IEDGE  and  ISEQ. 

The  coefficients  in  arrays  ISEQ  are  then  made  negative  for  use  In 
conjunction  with  the  assembly  of  matrix  PRUF.  Matrix  PFT  is  then  read 
from  file  17  one  column  at  a time.  Each  column  of  matrix  PTF  contains 
the  total  degree  of  freedom  number  for  each  force  for  an  element. 

Using  these  numbers  as  pointers  Into  array  IEDGE,  the  columns  of  matrix 
PRUF  are  assembled  and  output  to  file  1. 
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Matrices  PRUPT  and  PRUF  are  output  onto  tape  1.  Matrix  PTF  Is 
Input  from  tape  17  and  matrix  PUPT  Is  Input  from  tape  18.  Intermediate 
calculations  are  printed  on  tape  6 If  flaged. 


Argument  List 


I EDGE 


An  Integer  array  containing  the  reordered  row  positions 
of  each  UD0F 

An  Integer  array  used  to  store  reordered  row  positions  of 
each  TD0F 

An  Integer  array  used  to  store  values  and  positions  of 
elements  of  matrix  PUPT  when  a column  contains  other  than 
a single  value  of  unity 

An  Integer  array  used  to  store  columns  of  matrix  PRP 


Labeled  Common 
C0NST , IERR0R 


Subroutines  Called 
MATHHD , MATTR,  PASSM6 


Error  Detection 
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SUBROUTINE  PASSM6 


This  routine  sorts  array  ISEQ  columnwise  into  ascending  order  based 
on  the  values  in  the  second  row  of  array  ISEQ. 

Algorithm 

Array  ISEQ  contains  matrix  element  values  in  the  first  row  and 
matrix  element  row  locations  in  the  second  row.  The  columns  are  sorted 
based  on  the  values  in  the  second  row.  Note  that  the  number  of  columns 
in  array  ISEQ  must  be  two  or  more. 

Input/Output 

None 

Argument  list 

ISEQ  An  integer  array  used  to  store  values  and  positions  of  elements 

of  matrix  PUPT 

KNUM  An  integer  scalar  defining  the  number  of  columns  in  ISEQ 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  PR0P 

This  routine  processes  the  material  property  value  Input  data 
records  for  a particular  material  In  the  material  property  tables, 

Data  Code  10. 

Alqorl thm 

The  first  material  property  card  has  been  read  by  routine  MTLM0D 
and  Is  stored  In  array  REC.  The  parameters  In  labeled  common  IOEN 
have  also  been  Initialized. 

The  next  material  property  card  Is  read,  checked  for  correctness 
of  Input  and  to  determine  If  it  Is  a continuation  card  associated  with 
the  property.  If  coefficients  are  input,  they  are  saved  In  array  AP. 

If  temperature- value  pairs  are  input,  the  temperature-value  arrays  are 
set  up  to  compute  the  coefficients.  The  coefficients  are  then  computed 
by  subroutine  C0CALC. 

The  coefficients  for  this  property  are  moved  from  array  AP  to  array 
C0EFS,  the  pointers  and  counters  updated,  and  the  data  for  the  next 
property  is  read  and  processed  similarly. 

] 

Input/Output 

Material  property  data  is  read  from  tape  5.  Diagnostics  are  printed 
on  tape  6. 

Argument  List 

REC  A real  array  containing  the  current  Input  data  record 

1 

Labeled  Common 

C0FCLC,  IDEM,  IERR0R,  LIMITS,  WTRL 

1 

I 

1 


269 


#•»)• 


Subroutines  Called 
C0CALC 

Error  Detection 

Checks  are  made  to  insure  that  there  Is  sufficient  space  allocated 
for  the  materials  input,  that  the  number  of  coefficients  read  is  equal 
to  the  number  requested,  that  the  number  of  coefficients  to  be  calculated 
is  not  greater  than  the  number  of  values  input,  that  the  number  of 
coefficients  will  not  overflow  the  space  allocated  for  all  coefficients, 
that  there  are  not  more  properties  to  be  input  than  space  is  allocated 
for,  that  there  is  not  more  coefficients  to  be  input  than  space  is 
allocated  for,  that  a wrong  material  reference  number  was  input,  or 
that  a bad  Data  Code  was  input. 
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SUBROUTINE  PRTC0N 


This  routine  prints  the  contents  of  labeled  common  block  CONST. 
Algorithm 

The  contents  of  labeled  common  C0NST,  consisting  of  model  size  data 
and  problem  constants,  is  printed. 

Input/Output 

Problem  constants  and  sizing  variables  are  printed  on  tape  6. 

Labeled  Cotrwon 
C0NST,  IERR0R 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  QKS0RT 


This  is  the  driver  routine  for  the  module  that  accomplishes  file 
sorting  by  the  infile  Quick  Sort  technique  (Reference  17). 

Algorithm 

The  upper  and  lower  records  of  the  target  file  are  identified. 

The  file  is  partitioned  into  2 subfiles  relative  to  the  key  field  of 
a specified  record.  The  subfiles  are  identified  by  a stack  of  pointers. 
Subfiles  are  removed  from  the  stack  and  partitioned  until  there  are  no 
subfiles  remaining.  If  a subfile  consists  of  only  2 records,  then  it 
is  ordered  and  need  not  be  stacked  with  the  other  subfiles.  When  no 
subfiles  remain,  then  the  file  is  sorted. 

Input/Qutput 

None 

Argument  List 

REC  An  Integer  array  of  records  to  be  sorted 

CH6SEQ  An  integer  array  to  specify  the  original  positions  of 

the  sorted  records 

NREC  An  Integer  scalar  specifying  the  number  of  records  in  array 

REC 

LENREC  An  integer  scalar  specifying  the  length  of  each  record  in 
array  REC 

IT0P  An  Integer  scalar  pointing  to  the  last  record  in  array  REC 

IB0T  An  Integer  scalar  pointing  to  the  first  record  in  array  REC 

KYFLD  An  Integer  scalar  pointing  to  the  record  element  containing 

the  sort  key 

Labeled  Common 
ABC 
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Sub  routines  Called 


PARTN , STACK,  SWAP 
Error  Detection 


SUBROUTINE  RAM0SG 

This  routine  calculates  the  Ramberg-Osgood  coefficient,  the  slope 
tangent  to  the  Ramberg-Osgood  curve  at  the  origin,  and  the  elastic 
limit  stress. 


Algorithm 

First,  the  input  properties  are  tested  to  determine  if  the  material 

has  a plastic  range.  If  EA  = E,  oA  = 7r  and  Fr  3 the  material 

is  assumed  to  be  totally  elastic.  The  program  sets  n * 1,  F - E,  and 

o , » o’  and  returns  to  the  calling  routine. 

L r 


If  the  material  has  a plastic  range,  the  Ramberg-Osgood  coefficient, 
n,  the  initial  slope  of  the  stress/straln  curve,  F,  and  the  elastic 
limit  stress,  o^,  are  solved  for  using  an  iterative  approach.  Initlaliz 
ing 

r ’ T 

and  nQ  * 50.0 

the  following  equations  are  evaluated  in  an  iterative  manner  until  n 
has  converged  or  the  iterative  count,  k,  reaches  50. 


CALC1  » 1.0- r 

E. 


"k-H 


Rk-1  * f ' r 
1E1 


"k-r1 


WLC2  * «r  - Rk-1  r, 
oA 

CALC4  » 


CALC5 


3”A 
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n . In  (CALC2)  - In  (1-Rt  ,)  - In  (CALC4) 

k n mw 


When  n has  converged,  processing  is  completed  by  evaluating  the 
following  equations: 


R 


°L  * r °a 


If  convergence  does  not  take  place,  a fatal  error  condition  occurs 
causing  subsequent  failure  of  the  run. 


Input/Output 

Diagnostics  are  written  on  tape  6. 


Argument  List 

MR  An  integer  scalar  defining  the  material  reference  number 

Labeled  Conrnon 
IERR0R,  MTRL 

Subroutines  Called 
None 

Error  Detection 

Checks  are  made  to  detect  various  denominators  being  equal  to  zero, 
non-convergence,  and  an  attempt  to  extract  the  logorithm  of  zero.  The 
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errors  associated  with  each  of  the  potential  errors  codes  printed  in 
the  diagnostic  message  are  listed  below: 

Error 

Code  Error 

1 E -0.0 

2 Ea  0.0 

3 5A  * °-° 

4 no  convergence 

5 CALC1  * 0.0 

6 R -1.0 

7 CALC2  » 0.2 

9 CALC4  = 0.0 


10 


CALC5  - 0.0 


SUBROUTINE  SID 

This  routine  inverts  a real  non-singular  square  matrix  (A),  and  if 
desired,  will  also  solve  linear  system(s)  of  simultaneous  equations, 

(A) (X)  ■ (B)  where  (B)  may  have  any  number  of  columns.  Every  column  of 

(B)  must  have  at  least  one  non-zero  element. 


Algorithm 

The  numerical  method  is  basically  the  Gauss-Jordan  elimination  with 
selection  of  maximum  pivotal  elements  (full  pivoting).  Special  procedures 
are  present  to  Improve  accuracy  and  also  minimize  the  frequency  of  over- 
flow and  underflow  when  the  magnitudes  of  any  of  the  elements  in  the  (A) 
or  (B)  matrices  are  large  or  small. 


Input/Output 


None 


Argument  List 


A 

N 

NDR0W 


NDC0LA 

B 


M 


A two-dimensional  real  array  which  contains  (A). 

(A)  will  be  replaced  by  inverse  (A)  during  the  execution 
of  SID. 

An  integer  which  denotes  the  number  of  rows  in  (A) 

An  integer  scalar  which  denotes  the  maximum  number  rows 
which  may  be  stored  in  the  A array.  Note  that  the  matrix  (A) 
may  have  fewer  rows  and/or  columns  than  the  array  A which 
contains  it. 

An  Integer  scalar  which  denotes  the  maximum  number  of  columns 
which  may  be  stored  in  the  A array 

A real  array  which  contains  (B).  If  (B)  is  present,  the  B 
array  must  have  exactly  NDR0W  rows.  (B)  will  be  replaced 
by  (X)  during  the  execution  of  SID.  If  no  (B)  is  present, 

B may  be  any  variable  or  constant  of  any  type. 

An  integer  scalar  which  denotes  the  number  of  columns  in  (B). 
If  there  is  no  (B),  use  M * 0. 
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NDC0LB  An  integer  which  denotes  the  maximum  number  of  columns 
which  may  be  stored  in  the  B array.  If  no  (B)  is 
present,  NDC0LB  may  have  any  value. 

SIGDIG  A real  scalar  which  will  be  set  equal  to  an  estimate  of  the 
number  of  significant  digits  in  the  elements  in  the  inverse. 
This  estimate  is  based  on  the  assumption  that  the  elements  of 
(A)  are  all  accurate  to  eight  significant  digits. 

IERR0R  An  integer  scalar  used  to  flag  errors.  IERR0R  3 -1  indicates 
both  of  the  following: 

1)  neither  (A)-1  nor  (X)  could  be  computed 

2)  (A)  was  singular  or  nearly  so. 

IERR0R  3 1 Indicates  no  errors  were  detected.  Division  by 
zero  cannot  occur  in  this  routine.  No  test  is  made  for 
floating  point  overflow. 

PIV0T  A real  array  containing  at  lease  3*N  elements 

INDEX  An  integer  array  containing  at  least  3*N  elements 

SCALEB  A real  array  containing  at  least  M elements 


Labeled  Common 
N one 


Subroutines  Called 
None 


Error  Detection 

See  IERR0R  and  SIGDIG  under  Argument  List  above. 
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SUBROUTINE  SKDATA 

This  routine  skips  over  Data  Codes  in  the  card  input  tables  which 
are  not  used  by  the  initial  generator. 

Algorithm 

The  input  file  is  read  and  each  card  is  checked  to  determine  if  It  is 
the  end  card  for  the  Data  Code  to  be  skipped  over.  When  the  end  card 
is  encountered,  a return  is  made  to  the  calling  routine.  If  a Data  Code 
is  encountered  which  is  less  than  the  Data  Code  to  be  skipped  over,  an 
error  exit  occurs.  If  the  Data  Code  is  larger,  the  fnput  pointer  Is 
backed  up  and  a normal  exit  is  made. 

Input/Output 

Input  is  read  from  tape  5 and  error  diagnostics  are  written  on  tape  6. 
Argument  List 

IC0DE  An  integer  scalar  defining  the  Data  Code  number  to  be 

read  over 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 

If  the  data  cards  are  out  of  sequence,  the  IERR0R  flag  is  set  equal  one 
and  control  is  returned  to  the  calling  routine. 
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SUBROUTINE  STACK 

This  subroutine  stacks  pointers  to  subfiles  of  a file  that  Is  being 
sorted  by  routine  QKS0RT. 

Algorithm 

The  lengths  of  the  lower  and  upper  subfiles  are  calculated.  The 
largest  subfile  Is  stacked  first.  If  they  are  of  equal  length,  then 
the  upper  file  Is  stacked  first.  Subfiles  of  2 records  are  not  stacked. 

' 

Input/Output 

None 

Argument  List 

REC  An  integer  array  of  records  to  be  sorted 

NREC  An  Integer  scalar  specifying  the  number  of  records  in  array 

REC 

LENREC  An  integer  scalar  specifying  the  length  of  the  records  in 
array  REC 

Labeled  Common 
A6C 

Subroutines  Called 
None 


Error  Detection 
None 


SUBROUTINE  SWAP 


This  routine  switches  the  positions  of  two  records  in  a table  that 
is  being  sorted  by  routine  QKS0RT. 

Algorithm 

Two  rows  of  length  LENREC  in  array  REC  are  interchanged  as  are  two 
entrys  In  array  CHGSEQ.  The  counter  ISWAP  is  incremented  for  each  inter- 
change made  in  array  REC. 

Input/Output 

None 

Argument  List 

I An  integer  scalar  defining  the  first  row  of  array  REC 

J An  integer  scalar  defining  the  second  row  of  array  REC 

CHGSEQ  An  integer  array  of  original  row  positions  of  array  REC 
NREC  An  integer  scalar  defining  the  number  of  rows  in  array  REC 

LENREC  An  Integer  scalar  defining  the  number  of  columns  in  array  REC 

REC  An  integer  array  for  the  table  to  be  sorted 

Labeled  Common 
ABC 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  TAPEHD 

This  routine  writes  a FORMAT  tape  header  record. 

Algorithm 

A record  ten  words  in  length  is  written  on  tape  TAPEN0  as  shown  below. 


Word 

Data 

Type 

Description 

1 

-10 

integer 

tape  header  code 

2 

0 

integer 

compression  code 

3 

7 

integer 

words  remaining  in  record 

4 

X . 

. BCD 

5 

X . 

. BCD 

tape  name 

6 

X . 

. BCD 

(1  leading  character 

7 

X . 

. BCD 

with  blank  fill) 

8 

X . 

. BCD 

9 

X . 

. BCD 

10 

MOD 

integer 

tape  modifier 

Input/Output 

A tape  header  is  written  on  tape  TAPEN0. 

Argument  List 

TAPEN0  An  integer  scalar  defining  the  logical  tape  number 
NAME  An  alphanumeric  array  for  the  tape  (6  characters) 

M0O  An  integer  scalar  defining  the  tape  modifier 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  TAPETR 


This  routine  writes  a F0RMAT  tape  trailer  record. 

Algorithm 

A record  of  four  words  in  length  is  written  on  tape  TAPEN0  as  shown 
below. 


Word 

Data 

Type 

Description 

1 

-20 

integer 

tape  trailer  code 

2 

0 

integer 

compression  code 

3 

1 

integer 

words  remaining  in  record 

4 

0 

integer 

dummy  data 

Input/Outout 

Writes  a 

tape 

trailer  on 

tape  TAPEN0. 

Argument  List 

TAPEN0  An  integer  scalar  defining  the  logical  tape  number 

Labeled  Common. 

None 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  VECT 

This  routine  performs  vector  operations. 

Algorithm 

The  following  vector  operation  is  performed  according  to  the  value 
of  N. 

N Operation 

1 c - F - 7T 

2 c = B x f 

3 c = B • A 

4 c 3 3"  + J 

The  magnitude  of  the  resultant  vector  F is  then  computed  and  stored 
in  T.  If  normalization  is  requested,  the  components  of  the  resultant 
vector  c are  divided  by  T for  N equal  to  1,  2,  or  4. 

Input/Output 

None 

Argument  List 

N An  integer  scalar  specifying  which  vector  operation  to 

perform 

A A real  array  for  the  first  imoact  vector 

B A real  array  for  the  second  impact  vector 

C A real  array  for  the  resultant  vector 

T A real  scalar  for  the  resultant  vector  magnitude 

I An  integer  scalar  controlling  normalization  of  the 

resultant  vector 

Labeled  Common 
None 
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AD-A063  741 


UNCLASSIFIED 


DOUGLAS  AIRCRAFT  CO  LONG  BEACH  CALIF  F/G  1/3 

AIRCRAFT  WINDSHIELD  BIRD  IMPACT  MATH  MODEL.  PART  3.  PROGRAMMING— ETC <U) 
DEC  77  R C MORRIS  F33615-75-C-3105 


M0C-J-7174-PT-3 


AFFDL-TR-77-99-PT-3 


Subroutines  Called 


None 


Error  Detection 
None 


SUBROUTINE  WPART 


This  routine  writes  a partition  of  a matrix  onto  tape  in  standard 
F0RHAT  matrix  data  format. 

Algorithm 

Each  column  of  the  matrix  partition  A is  written  onto  tape  in  the 
compressed  mode.  The  origin  of  matrix  partition  A in  the  overall  output 
matrix  is  at  row  IR0W  and  column  IC0L.  The  row/column  indices  of  the 
element  of  array  A are  incremented  by  IR0W  and  IC0L  to  obtain  their  proper 
location  in  the  overall  matrix. 

Input/Output 

A matrix  partition  is  v/ritten  onto  tape  TAPEN0. 

Argument  List 

TAPEN0  An  integer  scalar  defining  the  number  of  the  last  column 
output  logical  tape  number 

IR0W  An  integer  scalar  defining  the  number  of  last  row  output 

IC0L  An  integer  scalar  defining  the  number  of  the  last  column 

output 

A A real  array  for  the  core  resident  matrix  partition  A 

M An  integer  scalar  defining  the  number 

partition  A 

N An  integer  scalar  defining  the  number 

partition  A 

Labeled  Common 
None 

Subroutines  Called 
None 


of  rows  of  matrix 
of  columns  of  matrix 
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Error  Detection 
None 


SU3R0UTINE  WRMAT 

This  routine  prints  a matrix  residing  in  the  core. 

Algorithm 

The  maximum  column  dimension  of  the  matrix  to  be  printed  Is  50.  If 
MAP  is  equal  to  zero,  the  elements  of  the  matrix  are  printed.  If  MAP 

is  not  zero,  a map  of  the  non-zero  elements  of  the  matrix  is  printed. 

/ 

This  routine  is  executed  only  in  runs  made  for  program  checkout. 
Input/Outout 

Matrix  data  is  printed  on  tape  6. 

Argument  List 

AMAT  A real  array  for  the  matrix  to  be  printed 

M An  integer  scalar  defining  the  number  of  rows  in  AMAT 

N An  integer  scalar  defining  the  number  of  columns  of  AMAT 

MAP  An  integer  scalar  print  control  flag 

LABEL  Matrix  label 

L An  integer  scalar  defining  the  number  of  words  (10  char/word) 

in  LABEL 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  WTAPE1 


This  routine  reads  the  element  partitions  for  matrices  KEL,  MEL, 

KBAR,  CBAR,  FFBAR , SIGFB,  EPSIG,  DEBT,  EVT,  and  C0NST,  assembles  the 
partitions  into  the  final  matrices,  and  outputs  the  matrices  as 
standard  F0RMAT  matrix  data. 

Algorithm 

The  order  in  which  the  first  nine  output  matrices  are  processed 
is  KEL,  MEL,  KBAR,  CBAR,  FFBAR,  SIGFB,  DPSIG,  DEBT,  and  EVT.  In  each 
case,  the  element  data  is  read  and  processed  in  the  order  bars,  membranes, 
and  cells.  The  only  matrix  having  contributions  from  point  mass  ele- 
ments, which  are  processed  last,  is  matrix  MEL.  However,  trailing  null 
partitions  are  also  present  in  matrix  KEL  for  point  mass  elements. 

In  all  of  these  matrices  with  the  exception  of  DEBT  and  EVT,  the 
element  partitions  are  positioned  as  diagonal  or  psuedo  diagonal 
partitions.  In  matrices  DEBT  and  EVT,  each  element  partition  is  a single 
column  each  beginning  in  the  first  row. 

Finally,  array  C0NST  which  contains  problem  constants  is  output 
as  a single  column  matrix. 

Input/Output 

Matrix  data  is  read  from  tapes  7 through  15  and  all  output  data 
is  written  to  tape  1. 


Tape 

Matrix 

14 

KEL 

10 

MEL 

13 

KBAR 

8 

CBAR 

12 

FFBAR 
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Argument  List 
None 

Labeled  Common 
C0NST,  IERR0R 

Subroutines  Called 
MATHD,  MATTR,  WPART 

Error  Detection 
None 


Tape 

Matrl x 

15 

SIGFB 

11 

EPSIG 

9 

DEBT 

7 

EVT 
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APPENDIX  C 

LOADS  GENERATOR  ROUTINES 


This  appendix  contains  detailed  descriptions  of  all  routines  in  this 
program.  Table  C gives  either  page  number  references  within  this  document 
or  references  to  other  documents  for  documentation  of  each  routine.  Some 
page  number  references  may  be  to  preceding  appendices  where  the  documentation 
for  a routine  in  this  program  is  identical  to  a previously  documented 
routine.  This  does  not  imply  verbatum  source  code  duplication  for  the 
routine,  only  functional  duplication  is  implied. 

The  detailed  description  of  each  routine  is  divided  into  the  following 
subheadings: 

verbal  flow  chart  of  routine  logic  and  data  flow 

description  of  all  external  data  set  input/output 

name,  type,  and  description  of  each  argument 

list  of  all  labeled  common  blocks  declared 

list  of  all  routines  called 

description  of  tests  made  for  errors  and  action 
taken 


Algorithm 
Input/Output 
Argument  List 
Labeled  Common 
Subroutines  Called 
Error  Detection 


TABLE  C.  INDEX  TO  LOADS  GENERATOR  ROUTINES 


Page 

MAIN  PROGRAM  L0DGEN 294 

SUBROUTINE  CR0SS  121 

SUBROUTINE  DELTA  296 

FUNCTION  DjJT 122 

SUBROUTINE  GENAB  298 

SUBROUTINE  INVERT  . . . 300 

SUBROUTINE  MATMUL  301 

SUBROUTINE  0UTPUT  302 

SUBROUTINE  READB  304 

SUBROUTINE  READCN  306 

SUBROUTINE  READC0  308 

SUBROUTINE  READJ  309 

SUBROUTINE  . SQUEEZ  Ref.  5 

SUBROUTINE  UVEC 134 


MAIN  PR0GRAM  L0DGEN 


1 


The  main  program  allocates  core  and  calls  subroutines  to  read,  cal- 
culate, and  output  incremental  loads  data. 

Algorithm 

The  subroutines  READC0  and  READCN  are  called  and  the  average  impact 
force  is  calculated.  The  load  increment  loop  is  then  entered  and  READB 
and  READJ  are  called.  The  current  total  load  on  the  model  and  the  loca- 
tion of  the  center  of  its  footprint  for  this  load  increment  are  calcu- 
lated, the  largest  component  of  the  centroidal  vector  is  determined,  and 
the  subroutines  GENAB  and  MATMUL  are  called.  If  the  load  increment 
number  is  greater  than  one  and  less  than  or  equal  to  the  total  number 
of  load  increments,  subroutine  DELTA  is  called.  If  the  increment 
number  is  one,  there  is  no  need  to  calculate  the  change  in  loads  from 
the  preceding  increment  to  this,  since  this  change  is  the  current  load, 
and  if  the  load  increment  number  is  equal  to  the  number  of  increments 
plus  one,  the  change  in  load  is  the  negative  of  the  preceding  load. 
Subroutine  0UTPUT  is  then  called  and  the  current  loads  and  the  joints 
of  their  applications  are  stored  at  the  end  of  the  A array  for  use  in 
the  next  load  increment. 


Subroutines  Called 


CR0SS , D0T,  MATMUL,  READS,  READC0,  UVEC,  DELTA,  GENAS,  0UTPUT,  READCN 
READD 

Error  Detection 

If,  in  either  of  the  checks  on  utilization  of  the  A array,  it  Is 
found  that  the  available  storage  in  the  A array  has  been  exceeded,  the 
message 

'INSUFFICIENT  STORAGE  nnnnn  VS  nnnnn' 
is  printed  and  the  program  is  terminated. 
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SUBROUTINE  DELTA 


This  routine  compares  the  joint  loads  of  the  current  load  increment 
to  the  joint  loads  of  the  previous  load  increment  and  finds  the  change 
in  load  at  each  joint. 

Algorithm 

Since  only  non-zero  joint  loads  for  the  current  and  previous  load 
increments  are  stored  in  order  of  the  joint  numbers,  there  are  three 
basic  possibilities  for  each  change  in  joint  load.  (1)  The  joint  is 
loaded  in  the  current  increment,  but  not  in  the  previous  increment; 

(2)  the  joint  is  loaded  in  both  the  current  and  previous  increments; 
or  (3)  the  joint  was  loaded  in  the  previous  increment  but  not  in  the 
current  increment.  In  any  case  the  change  in  load  on  the  joints  loaded 
currently  or  in  the  previous  load  increments,  are  found  and  stored  in 
order  of  the  numbers  of  the  joints. 

Input/Out  • 

None 

Argument  List 


J0INT0 

An  integer  array  of  the  numbers  of  joints  that  received 
load  in  the  previous  load  increment 

PHI0LD 

A real  array  of  loads  on  the  joints  in  the  previous  load 
increment 

J0INTN 

An  integer  array  of  the  numbers  of  joints  that  receive 
load  in  this  increment 

PHINEW 

A real  array  of  the  loads  on  the  joints  in  the  current 
load  increment 

JTDEL 

An  integer  array  of  the  numbers  of  joints  that  were  loaded 
in  the  previous  load  increment  or  are  loaded  in  the 
current  increment 

DELPHI 

A real  array  of  the  changes  in  joint  loads  from  the 
previous  load  increment 

NJTj)  An  integer  scalar  defining  the  number  of  joints  that 

ceived  load  in  the  previous  load  Increment 

NJTN  an  integer  scalar  defining  the  number  of  joints  that 

receive  load  in  the  current  increment 

NDELPH  An  integer  scalar  defining  the  number  of  joints  that 

receive  load  in  either  the  current  or  previous  load 
Increments 


Labeled  Common 


None 


Subroutines  Called 


None 


Error  Detection 


None 
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SUBROUTINE  GENAB 

This  routine  generates  the  A and  B matrices. 

AT  gori thm 

The  B matrix's  three  members  are  calculated  first  from  the  cross 
product  of  the  vector  to  the  current  footprint  location  and  the  unit 
vector  in  the  direction  of  load  application.  The  A array  (dimension 
3X  NJTN)  is  created  second,  using  the  cross  products  of  the  vectors 
to  the  joints  that  are  to  receive  load  and  the  unit  vector  in  the 
direction  of  load  application. 

Input/Output 

None 

Argument  List 

C00RJ  A real  array  of  coordinates  of  all  the  joints 

J0INTN  An  integer  array  defining  numbers  of  joints  that  are  to 

be  loaded  in  this  load  increment 

ABETA  A real  array  defining  the  A array  for  this  load  increment 

BBETA  -A  real  array  defining  the  B array  for  this  load  Increment 

CBETA  A real  array  of  the  coordinates  of  the  center  of  the 

footprint 

UVAPP  A real  array  defining  the  unit  vector  in  the  direction  of 

load  application 

NJTN  An  Integer  scalar  defining  the  number  of  joints  to  be 

loaded  in  this  load  Increment 

IR0W2  An  integer  scalar  defining  the  number  of  one  of  the 

principal  axes  in  the  reference  plane 


IR0W3 


An  Integer  scalar  defining  the  number  of  the  other 
principal  axis  in  the  reference  plane 


Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 


None 


SUBROUTINE  INVERT 

This  routine  Inverts  a 3 x 3 matrix  by  the  method  of  successive 
transformations. 

Algorithm 

An  Identity  matrix  Is  set  up  first,  then,  while  the  matrix  to  be 
Inverted  Is  turned  Into  an  Identity  matrix,  the  row  operations  to  do  so 
are  also  performed  on  the  Identity  matrix.  When  the  Input  matrix  Is 
an  Identity  matrix,  the  Identity  matrix  has  been  transformed  Into  the 
inverse  matrix. 

Input/Output 

None 

Argument  List 

AAT  A real  array  defining  the  Input  matrix  to  be  Inverted 

AATIN  A real  array  defining  the  Inverted  output  matrix 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  MATMUL 

This  routine  performs  the  matrix  multiplication  A^(AA^)’^BF. 
Algorithm 

The  first  step  is  to  obtain  AA^,  then  the  matrix  multiplication 
A^(AA^)"^  is  performed.  The  final  two  steps  are  the  matrix  multlpll 
cation  A^(AA^)"^B  and  the  scalar  multiplication  A^(AA^)"^BF. 

Input/Output 

None 


Argument  List 


ABETA 

PREPR0 

PHINEW 

00 1 NT 

BBETA 

F 

NJTN 


A real  array  defining  the  A matrix  for  this  load  Increment 

A real  array  of  storage  area  for  the  pre-product 

A real  array  defining  the  final  matrix  product  of 
loads  on  the  joints 

An  integer  array  defining  the  numbers  of  joints  that  are 
to  be  loaded  in  this  load  Increment 

A real  array  defining  the  B matrix 

A real  scalar  defining  the  total  load  for  this  Increment 

An  integer  scalar  defining  the  number  of  joints  to  receive 
load  in  this  increment 


Labeled  Common 
None 


Subroutines  Called 
INVERT 

Error  Detection 
None 
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SUBROUTINE  0UTPUT 

This  routine  prints,  punches  and  writes  (on  tape)  the  output  data. 
Algorithm 

The  output  is  produced  in  two  forms.  The  first  form  is  for  the 
user  to  use  for  checking  the  input  data.  The  constant  data  (mass 
velocity,  duration  of  impact,  average  impact  force,  and  the  load  appli- 
cation unit  vector)  are  printed  first,  then  the  current  load  and  the 
change  in  load  that  occurred  between  the  preceding  and  current  load 
increments  for  each  joint  that  undergoes  a change  in  load  are  printed. 
The  second  form  of  output  is  printed  for  the  benefit  of  the  user  and 
written  on  tape  for  analysis  programs  downstream.  The  format  used  is 
that  for  a F0RMAT  matrix  whose  rows  are  the  degree  of  freedom  numbers 
and  whose  columns  are  the  load  increment  numbers.  The  change  in  load 
between  the  previous  and  current  load  increments  are  divided  along  the 
degrees  of  freedom  and  are  written  accordingly. 


Input/Output 

The  output  is  written  on  files  6,  JTAPE  and  KTAPE. 


Argument  List 

DELPHI 

A real  array  of  the  change  in  joint  loads  from  the  previous 
to  the  current  load  increment 

J0INT 

An  Integer  array  of  the  numbers  of  joints  that  undergo 
changes  in  load  from  the  previous  to  the  current  load 
Increment 

PHINEW 

A real  array  of  the  loads  on  the  joints  in  the  current 
Increment 

J0INTN 

An  integer  array  of  the  numbers  of  joints  that  receive 
load  In  the  current  load  increment 

I BETA 

1 

An  integer  scalar  defining  the  number  of  the  load  incre- 
ment 

1 


F 

A real  scalar  defining  the  total  load  applied  in  the  current 
increment 

UVAPP 

A real  array  defining  a unit  vector  in  the  direction  of  the 
applied  load 

NJTN 

An  integer  scalar  defining  the  number  of  joints  that  received 
load  in  the  current  increment 

NDELPH 

An  integer  scalar  defining  the  number  of  joints  that  undergo 
changes  In  load  between  the  current  and  preceding  load 
increments 

ND0F 

An  integer  scalar  defining  the  total  number  of  degrees  of 
freedom 

AMASS 

A real  scalar  defining  the  mass  of  the  bird 

VEL 

A real  scalar  defining  the  velocity  of  the  bird 

TIME 

A real  scalar  defining  the  duration  of  impact 

FAVG 

A real  scalar  defining  the  average  load 

UVEL 

A real  array  defining  a unit  vector  of  the  velocity  of  the 
bird 

JTAPE 

An  integer  scalar  defining  the  number  of  the  output  file 
that  will  contain  the  F0RMAT  matrix  card  images 

KTAPE 

An  integer  scalar  defining  the  number  of  the  output  file 
• that  corresponds  to  the  F0RMAT  tape  output 

NBETAP 

An  integer  scalar  defining  the  total  number  of  load  increments 
plus  one 

r 

C0LM 

A real  array  used  to  assemble  a column  of  the  output  matrix 

Labeled  Common 

None 

Subroutines 

Called 

squEEZ 

Error  Detection 

None 

\ 
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SUBROUTINE  READB 

This  routine  reads  the  footprint  travel  and  load  factor  for  the 
current  load  Increment. 

Algorithm 

The  Input  file  is  read  until  a Data  Code  11  card  Is  read.  The  Data 
Code  11  cards  are  read  until  a card  with  a flag  of  6 is  found.  The 
cards  with  a flag  of  6 are  read  until  the  card  with  the  current  incre- 
ment number  is  read  and  the  data  is  stored.  The  subroutine  then  returns 
to  the  main  program. 

Input/Output 

The  input  is  read  from  file  ITAPE. 

Argument  List 

DBETA  A real  scalar  defining  the  distance  the  footprint  travels 

from  the  initial  impact  point 

FACTOR  A real  scalar  defining  the  current  position  portion  of 

the  average  impact  load  to  be  applied  for  the  current 
load  increment 

IBETA  An  integer  scalar  defining  the  current  increment  number 

ITAPE  An  Integer  scalar  defining  the  number  of  the  input  file 

. 

Labeled  Common 
None 

Subroutines  Called  1 

None 

Error  Detection 

If  no  Data  Code  11  cards  are  read  the  message 
'NO  CONSTANTS  (DATA  CODE  11 J ENCOUNTERED  IN  INPUT1 
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is  printed.  If  the  card  with  data  corresponding  to  the  current  load 
increment  is  not  read  the  message 

'INCREMENT  (BETA)  NUMBER  nnn  NOT  FOUNO  IN  DATA  CODE  11  DATA' 
is  printed. 


SUBROUTINE  REA DON 

This  routine  reads  the  constants  associated  with  the  Impact  distri- 
bution. 

Algorithm 

The  input  file  is  read  until  a Data  Code  11  card  is  read.  The  input 
file  is  backspaced  one  record  and  five  cards  are  read  and  their  data 
stored  before  the  subroutine  returns  to  the  main  program. 

Input/Output 

The  input  is  read  from  file  ITAPE. 


Argument  List 
ND0F 

AMASS 
VEL 
ALENG 
UVEL 

UN0RM 

UF00T 

C00RI 

NBETA 
ITAPE 


An  integer  scalar  defining  the  total  number  of  degrees  of 
freedom 

A real  scalar  defining  the  mass  of  the  bird 

A real  scalar  defining  the  velocity  of  the  bird 

A real  scalar  defining  the  length  of  the  bird 

A real  array  defining  a unit  vector  in  direction  of  bird 
motion 

A real  array  defining  a unit  vector  normal  to  the  surface 
at  the  impact  point 

A real  array  defining  a unit  vector  in  the  direction  of 
impact  footprint  travel 

A real  array  defining  a vector  from  the  origin  to  the 
impact  point 

An  integer  scalar  defining  the  number  of  load  increments 
An  integer  scalar  defining  the  number  of  the  input  file 


Labeled  Common 
None 
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Subroutines  Called 


None 

Error  Detection 

If  no  Data  Code  11  cards  are  read  the  message 
'NO  CONSTANTS  (DATA  CODE  11)  ENCOUNTERED  IN  INPUT' 

Is  printed.  If  there  are  not  at  least  five  consecutive  Data  Code  11 
cards,  the  message 
'MISSING  DATA  IN  DATA  CODE  IT 
is  printed. 
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SUBROUTINE  READC0 

This  routine  reads  the  joint  coordinate  data. 

AT qorithm 

The  input  file  is  read  until  a Data  Code  2 card  is  found.  The  input 
file  is  backspaced  one  record  and  the  coordinate  data  is  read  and  stored 
until  the  data  code  is  no  longer  2 or  until  a joint  number  of  9999  is 
read. 

Input/Output 

The  input  is  read  from  file  ITAPE. 

Argument  List 

C00RO  A real  array  of  coordinates  of  joints  stored  by  joint  number 

NJT0T  An  integer  scalar  defining  the  largest  joint  number  input 

ITAPE  An  integer  scalar  defining  the  number  of  the  input  file 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 

If  the  end  of  Data  Code  2 data  is  encountered  without  encountering 
joint  number  9999  the  message 
'A  29999  CARD  WAS  NOT  FOUND' 

is  printed  but  execution  continues.  If  no  Data  Code  2 data  is  found  at 
all,  the  message 

•NO  JOINT  COORDINATE  DATA  (DATE  COOE  2)  ENCOUNTERED  IN  INPUT' 
is  printed. 
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SUBROUTINE  READJ 

This  routine  reads  the  joint  numbers  that  will  receive  load  in 
the  current  load  Increment. 

Algorithm 

The  input  file  Is  read  until  a Data  Code  12  card  is  encountered.  The 
file  is  backspaced  one  record  and  the  data  is  read,  checking  the  incre- 
ment number.  When  the  current  increment  number  is  read  the  joint  numbers 
are  read  and  stored  for  as  many  cards  as  have  the  current  increment 
number. 

Input/Output 

The  input  is  read  from  file  ITAPE. 

Argument  List 

J0INT  An  Integer  array  defining  the  numbers  of  joints  that  are 

to  receive  load  during  the  current  increment 

NJTN  An  integer  scalar  defining  the  number  of  joints  that  are 

contained  in  J0INT 

IBETA  An  integer  scalar  defining  the  current  load  increment  number 

ITAPE  An  integer  scalar  defining  the  number  of  the  input  file 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 

If  no  Data  Code  12  cards  are  read  the  message 
'NO  LOADED  JOINTS  DATA  (DATA  CODE  12)  ENCOUNTERED  IN  INPUT' 
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is  printed.  If  a card  with  data  corresponding  to  the  current  load  in 
crement  is  not  read  the  message 

'JOINTS  FOR  INCREMENT  (BETA)  NUMBER  nnnn  NOT  FOUND  IN  DATA  CODE  12 
DATA' 

is  printed. 
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APPENDIX  D 


LINEAR  INCREMENTAL  ROUTINES  AND 
LABELED  COWION  BLOCKS 


APPENDIX  D 

LINEAR  INCREMENTAL  ROUTINES 
AND 

LABELED  COMMON  BLOCKS 

This  appendix  contains  detailed  descriptions  of  all  routines  and  labeled 
common  blocks  in  this  program.  Table  D gives  either  page  number  references 
within  this  document  or  references  to  other  documents  for  documentation 
of  each  routine  or  labeled  common  block.  Some  page  number  references  may 
be  to  preceding  appendices  where  the  documentation  for  a routine  in 
this  program  is  identical  to  a previously  documented  routine.  This  does 
not  imply  verbatum  source  code  duplication  for  the  routine,  only  functional 
duplication  is  implied. 


The  detailed  description  of  each  routine  is  divided  into  the  following 
subheadings: 


Algorithm 


[nput/Output 


Argument  List. 
Labeled  Common 
Subroutines  Called 
Error  Detection 


verbal  flow  chart  of  routine  logic  and  data  flow 

description  all  external  data  set  Input/output 

name,  type,  and  description  of  each  argument 

list  of  all  labeled  common  blocks  declared 

list  of  all  routines  called 

description  of  tests  made  for  errors  and  action 
taken 


The  detailed  description  of  each  labeled  common  block  Is  divided  into 
the  following  subheadings: 


Declaration 

Contents 


Usaae 


verbatum  declaration  of  the  labeled  common  block 

name  and  description  of  each  variable  appearing 
In  the  declaration 

list  of  all  routines --which  contain  declarations 
for  the  labeled  comnon  block 
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TABLE  D.  INOEX  TO  LINEAR  INCREMENTAL  ROUTINES  AND 
LABELED  COMMON  BLOCKS 


MAIN  PROGRAM 

RESPNS  . 

LABELED  COMMON 

CL0CK  . 

LABELED  COMMON 

LIMITS  . 

LABELED  COMMON 

NOICES  . 

LABELED  COMMON 

TAPES  . 

SUBROUTINE 

ABSYM  . 

SUBROUTINE 

ADD  . . 

SUBROUTINE 

ASYMB  . 

SUBROUTINE 

BALANC  . 

SUBROUTINE 

BALBAK  . 

SUBROUTINE  • 

CCMULT  . 

SUBROUTINE 

CHGSGN  . 

SUBROUTINE 

CHLSKY  . 

SUBROUTINE 

C0PY  . . 

SUBROUTINE 

CRMULT  . 

SUBROUTINE 

EIGS0L  . 

SUBROUTINE 

ELMHES  . 

SUBROUTINE 

ELTRAN  . 

SUBROUTINE 

EUTL9  . 

SUBROUTINE 

HALT  . . 

SUBROUTINE 

HQR  . . 

SUBROUTINE 

HQR2  . . 

SUBROUTINE 

IMBAL  . 

SUBROUTINE 

J0RDAN  . 

SUBROUTINE 

LINEAR  . 

SUBROUTINE 

MATIN  . 

SUBROUTINE 

MBAR  . . 
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Page 

315 

317 

318 
320 
323 

325 

326 

327 

Ref.  16 
Ref.  16 
329 

331 

332 

333 

334 
336 

Ref.  16 
Ref.  16 
Ref.  6 
338 

Ref.  16  ' 
Ref.  16 


339 

341 

342 
344 
346 
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TABLE  D.  INDEX  TO  LINEAR  INCREMENTAL  ROUTINES  AND 
LABELED  COMMON  BLOCKS  (Continued) 


Page 

SUBROUTINE  MULT 348 

FUNCTION  NDXSET  349 

SUBROUTINE  NITIAL  ....  350 

SUBROUTINE  0UTPUT  352 

SUBROUTINE  PBARUF  353 

SUBROUTINE  PREEIG  354 

SUBROUTINE  PRINTR  356 

SUBROUTINE  PTMASS  358 

SUBROUTINE  READA  Ref.  5 

SUBROUTINE  READK  359 

SUBROUTINE  READM  360 

SUBROUTINE  RGEIG Ref.  16 

SUBROUTINE  . SBTRCT  361 

SUBROUTINE  SIGFBR  362 

SUBROUTINE  SMULT  363 

SUBROUTINE  SQUEEZ  Ref.  5 

SUBROUTINE  SYMABT  364 

SUBROUTINE  SYMFIL  365 

SUBROUTINE  SYMS0L  366 

SUBROUTINE  TIMEQ  Ref.  6 

SUBROUTINE  TMULT  368 

SUBROUTINE  TSETQ  Ref.  6 

SUBROUTINE  VDMULT  370 

SUBROUTINE  WRITE  Ref.  5 

SUBROUTINE  WRITEM  371 

SUBROUTINE  XP0NNT  372 

SUBROUTINE  ZER0 373 


MAIN  PROGRAM  RESPNS 

This  is  the  driver  of  the  Linear  Incremental  Solution  program. 
Algorithm 

The  driver  functions  of  this  program  consist  of: 

1)  Defining  23  data  sets  used  for  input,  output  and  scratch  storage. 

2)  Delimiting  the  extents  of  4 common  blocks,  the  first  of  which, 
blank  common,  will  be  used  for  working  storage. 

3)  Initializing  via  subroutine  NITIAL. 

4)  Setting  the  stage  for  an  incremental  analysis  by  invoking  sub- 
routine PREEIG  to  generate  matrices  M,  K and  C which  are  the 
components  of  the  eigenvalue  problem  statement  set  up  and  solved 
via  subroutine  EIGSOL. 

5)  Performing  the  incremental  analysis  through  the  sequence  of  calls 
to  subroutines  LINEAR  and  IMBAL  for  each  time  interval. 

6)  Clocking  the  execution  of  each  module  and  displaying  elapsed 
time  on  output. 

Input/Output . 

None 

Arguments 

None 

Labeled  Common 
NDICES,  TAPES,  LIMITS 

Subroutines  Called 

NITIAL,  PREEIG,  EIGS0L,  LINEAR,  IMBAL,  TSETQ,  TIMEQ 


315 


Error  Detection 


LABELED  COMMON  CL0CK 


This  common  block  is  used  to  store  timing  information  to  obtain  CPU 
time  required  for  major  modules  within  the  program. 

Declaration 
C0MM0N  /CL0CK/  0RGTIM 

Contents 

0RGTIM  CPU  time  remaining  for  the  run  obtained  by  system  routine 

TIMREM 

Usage 

TIMEQ,  TSETQ 


LABELED  COMMON  LIMITS 


I 


i 


This  coiranon  block  is  used  to  store  problem  size  information,  problem 
constants,  option  flags,  and  other  program  parameters  used  by  all 
principle  routines. 

Declaration 

C0MM0N  /LIMITS/NG, NK.NELEMS.NTRVLS, BETA, BETBAR, HEAT, NM,I0RGN,JX 
, K0LX.NF ,M0REK ,M0REC ,NG2  ,NG2SQ ,NJTS ,AHAT,DE3CL ,TBM1 

, TAU ,NS,N0WRK,NSUPD .NFAIL ,N0PBPU 

LOGICAL  BETBAR.N0BPU 
INTEGER  BETA 


Contents 

NG 

Number  of  modes 

NK 

Number  of  lumped  forces  for  an  element 

NELEMS 

Total  number  of  physical  elements 

NTRVLS 

Number  of  time  Increments 

BETA 

Current  Increment  number 

BETBAR 

Not  used 

HEAT 

Option  flag  for  element  dissipated  damping  energy  con- 
verted to  heat 

NM 

(NG*NG+NG)/2 

I0RGN 

Pointer  to  unused  trailing  partition  of  blank  common 

JX 

Pointer  to  a location  in  labelled  common  NDICES 

K0LX 

Matrix  column  counter 

NF 

Number  of  forces  for  an  element 

M0REK 

Flag  designating  additional  partitions  of  k 

M0REC 

Flag  designating  additional  partitions  of  c 

NG2 

NG+NG 

NG2SQ 

NG2*NG2 
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NJTS 

AHAT 

DEBCL 

TBM1 

TAU 

NS 

NW0RK 

NSUPD 

NFAIL 

N0PBPU 

Usage 


Number  of  joints 
Not  used 

Total  damping  energy 
Time  Increment  of  previous  interval 
Time  increment  of  current  interval 
Number  of  stresses  for  an  element 
Extent  of  blank  common  region 
Not  used 
Not  used 

Flag  indicating  the  input  6P^y  has  been  exhausted 


RESPNS,  EIGS0L,  IMBAL,  LINEAR,  NDXSET,  NITIAl,  0UTPUT,  PBARUF,  PREEIG, 
PTMASS , READK,  S1GFBR 


LABELED  COMMON  NDICES 

This  common  block  is  used  to  store  pointers  to  partitions  within 
blank  common  array  A.  All  values  in  this  common  block  are  initialized 
in  routine  NITIAL.  Partitions  for  elements  are  sized  for  cells  which 
have  the  largest  storage  requirements. 

Declaration 


C0MM0N  A(  8000) 

C0MM0N  /NDICES/I VBDB , IVBB , I VBX , IDPBPU , IPBMUB , IDPPUB , IDBL , IVBL 
, I PBAR , I PBPHU , I KB , I CB , I MBAR , I MBARL , IDEBCL , I C0NST 

, ITIME , IS  I GSS 

, IKBL,IZ,ICA,IQ,IVAL,IFTAU,IVEC,IEGSYS 

, IU ,LU , IECT , IEVT , IMPT , IDEBO , IDFBKO , IDSEB 

, I FK , I FBK , I DEL , I DEDL , I FSFB , I FSFBB . I PBCU 

, IPBKU,ISIGFB,ISIGBH,IEPSIG,IPSL0N,IO,IDK 

, ISKB,ISKBB,ISCB,ISCBB,IPBUF,ISK,ITK,ICIB,IMEL 

Contents 

I VBDB 

Vg,  modal  accelerations 

IVB8 

7g,  modal  velocity 

I VBX 

7g_.|,  modal  velocity  of  previous  increment 

IDPBPU 

sPjj,  Incremental  modal  force  imbalance 

IPBMUB 

P(M)u»  modal  inertia  force 

IDPPUB 

5^($)U*  incremental  modal  applied  load 

IDBL 

6aL>  incremental  linear  modal  displacement 

IVBL 

vL,  linear  modal  displacement 

I PBAR 

P,  total  modal  forces 

IPBPHU 

P(  }u.  modal  applied  load 

I KB 

K,  modal  stiffness 

ICB 

C,  modal  damping 

I MBAR 

M,  modal  mass 
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Cholesky  decomposition  of  M 

5E^l,  incremental  element  dissipated  damping  energy 

Problem  constants 

Incremental  time  history 

<j,  . stress  transform  for  cell  elements 

5<J 

Cholesky  decomposition  of  K 
The  modal  matrix  Z = 

The  modal  matrix  C * H”^  yo 

a 

The  modal  matrix  Q * C.  F(t)  where  Ca  is  C diagonalized 

aD  aD  a 

x,  eigenvalues 

F(t),  a modal  column  matrix  of  eXx 
H,  eigenvectors 
Eigenvalue  problem  work  array 
U , original  joint  coordinates 
Not  used 

ECT,  element  constant  table 

EVT,  element  variable  table 

MPT,  material  property  tables 

6eQ,  incremental  initial  element  deformations 

aF„,  , incremental  element  forces  due  to  initial  deformations 
_ o 

6e,  incremental  element  deformations 

The  matrix  FK  * F^  + <$F^  for  an  element 

Fk,  element  forces 

6eL,  Incremental  linear  element  displacement 
5e.  , incremental  linear  element  velocity 


IFSFB 

IFSFBB 

IPBCU 

IPBKU 

ISIGFB 

ISIGBH 

IEPSIG 

IPSL0N 

ID 

IDK 

ISKB 

ISKBB 

ISCB 

ISCBB 

IPBUF 

ISK 

ITK 

ICIB 

IMEL 

Usage 

RESPNS, 
PTMASS , 


Fp,  element  force  transform 
Not  used 

? (C)U * mocla^  damping  forces 
P(K)y,  modal  stiffness  forces 
op,  element  stress  transform 
Not  used 

e , element  strain  transform 
a 

e,  element  strains 

The  matrix  D = Pyp  F^  for  an  element 
The  matrix  DK  3 Pyp  Fp  k for  an  element 
k,  unassembled  element  stiffness 
Not  used 

c,  unassembled  element  damping 
Not  used 

Pyp,  modal  transform 

s^ , modal  fictitious  forces 

tk>  modal  fictitious  deformations 

The  matrix  CT  = Pyp  Fp  c FpT  PypT  for  an  element 

m,  element  mass 


EIGS0L,  IMBAL,  LINEAR,  NDXSET,  NITIAL,  0UTPUT,  PBARUF,  PREEIG, 
READK,  SIGFBR 
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LABELED  COMMON  TAPES 


This  common  block  is  used  to  store  the  FORTRAN  logical  unit  numbers 

of  the  external  files  used  by  the  program. 

Declaration 

COMMON  /TAPES  /N1  ,N2  ,N3  ,N4  ,N5  ,N6  ,N7  ,N8  ,N9  ,N10 

, Nil ,N12,N13,N14,N15,N16,N17 ,N18,N19,N20 

Contents 

The  values  in  the  common  block  are  initialized  in  routine  NITIAL. 

The  FORTRAN  logical  unit  designations  assigned  are  given  here. 

Nl  1 

N2  2 

N3  3 

N4  4 

N5  8 

N6  9 

N7  10 

N8  11 

N9  12 

Nl  0 13 

Nil  14 

N12  15 

Nl  3 16 

Nl  4 17 

Nl  5 18 

Nl  6 19 

Nl  7 20 

Nl  8 21 

Nl  9 22 

N20  23 
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Usage 


RESPNS,  EIGS0L, IMBAl, LINEAR, NITIAL,0UTPUT,PBARUF»PREEIG,PTMASS , READK, 
SIGFBR 


SUBROUTINE  ABSYM 


This  routine  performs  a matrix  cross-product  wherein  the  post- 
multiplier matrix  is  the  upper  half  of  a symmetric  matrix. 

Alqori thm 

The  mode  of  storage  of  the  post-multiplier  matrix  is  b^,  * ** 

bln’  ^22  ’*’*•  w^en  l°9ical  variable  SUM  is  false,  the  array 
accommodating  the  resulting  matrix  is  initialized  as  zero.  Otherwise, 

It  is  simply  incremented  to  yield  the  matrix  sum  C * C + A-B. 

Input/Output 

None 

Argument  List 

C A real  array  accommodating  the  product  matrix 

A • A real  array  accommodating  the  pre-multiplier  matrix 

B A real  array  accommodating  the  post-multiplier  matrix  In 

the  mode  of  storage  b^ , b^»  •••>  b^n,  bj£  ••• 

M An  Integer  scalar  defining  the  order  of  the  pre-multiplier 

.matrix 

M An  integer  scalar  defining  the  order  of  the  post-multiplier 

symmetric  matrix 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 


I m v*  - 
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SUBROUTINE  ADD 

. 

This  routine  performs  vector  addition;  C * A + B. 

Alqorlthm 

Vectors  A and  B are  summed  Into  C. 

Input/Output 

None 

Argument  List 

C A real  array  accommodating  the  resulting  vector 

A A real  array  accommodating  the  first  Input  vector 

B A real  array  accommodating  the  second  Input  vector 

N An  integer  scalar  defining  the  order  of  the  vectors 

Labeled  Conrcon 
None 


Subroutines  Called 
None 


Error  Detection 
None 


L 
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SUBROUTINE  ASYMB 

This  routine  performs  a matrix  cross-product  wherein  the  pre- 
multiplier  matrix  is  the  upper  half  of  a symmetric  matrix. 

Algorithm 

The  mode  of  storage  of  the  symmetric  pre-multiplier  matrix  Is 

all’  a12  aln*  a22  **’•  When  l°9^cal  variable  SUM  Is  false, 

the  array  accommodating  the  resulting  matrix  Is  Initialized  as  zero. 
Otherwise,  it  is  simply  Incremented  to  yield  the  matrix  sum  C * C + A*B. 

Input/Output 

None 

Argument  List 

C A real  array  accommodating  the  product  matrix 

A ' A real  array  accommodating  the  pre-multiplier  matrix  In 

the  mode  of  storage  a^,  a12,  •••,  a^n,  a22  ••• 

B A real  array  accommodating  the  post-multiplier  matrix 

M An  Integer  scalar  defining  the  order  of  the  symmetric 

pre-multiplier  matrix 

P An  Integer  scalar  defining  the  column  order  of  the 

pre-multiplier  matrix 

SUM  A logical  scalar  which  If  true,  C ■ C + A • B ; otherwise 

C « A-B 

Labeled  Common 
None 

Subroutines  Called 
None 
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SUBROUTINE  CCMULT 

This  routine  computes  the  specified  leading  rows  of  the  product 
of  two  complex  matrices. 

A1 qori thm 

When  the  logical  variable  SUM  is  false,  the  array  accommodating 
the  resulting  matrix  is  Initialized  as  zero.  Otherwise,  It  Is 
simply  Incremented  to  yield  the  matrix  product  and  summation  C • C + A*B. 

Input/Output 


Argument  List 


A complex  array  accomnodating  the  product  matrix 

A complex  array  accommodating  the  pre-multiplier  matrix 

A complex  array  acconmodati ng  the  post-multiplier  matrix 

An  Integer  scalar  defining  the  row  dimension  of  arrays 
C and  A 

■An  integer  scalar  defining  the  column  dimension  of  array 
A,  and  the  row  dimension  of  array  B 

An  integer  scalar  defining  the  column  dimension  of  arrays 
B and  C 

An  Integer  scalar  defining  the  computations  concerning 
ML  rows  of  C 

A logical  scalar  which  If  true,  C * C + A*B;  otherwise 
C » A*B 


Labeled  Common 


9 


Subroutines  Called 


SUBROUTINE  CHGSGN 

This  routine  changes  the  algebraic  sign  of  a vector. 

Algorithm 

The  sign  of  the  vector  is  reversed  by  being  set  to  minus. 

Input/Output 

None 

Argument  List 

A A real  array  acconmodatlng  the  vector  whose  sign  Is  to 

be  reversed 

N An  Integer  scalar  defining  the  order  of  the  vector 

Labeled  Common 
None 

Subroutines  Called 
None 


Error  Detection 


SUBROUTINE  CHLSKY 

This  routine  performs  an  in  situ  Cholesky  decomposition,  where 
the  symmetric  matrix  is  given  in  its  triangular  half. 

Algori thm 

Where  A ■ LlT,  given  the  positive  definite  matrix  A In  its 
symmetric  half,  this  routine  transforms  It  to  L.  The  mode  of 
storage  Is  a^^,  3^*  • • • 3^,  ^22  * * * ^2n  * • 

Input/Output 

None 

Argument  List 

A A real  array  accommodating  the  symmetric  half  of  the 

positive  definite  matrix  on  input,  and  Its  square  root 
decomposition  on  output 

N An  integer  scalar  defining  the  order  of  the  problem 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  COPY 

This  routine  copies  an  array  from  core  to  core. 

Algorithm 

Array  A is  copied  into  array  B. 

Input/Output 

None 

Argument  List 

A A real  array  to  be  copied 

B A real  array  into  which  the  copy  is  made 

N An  integer  scalar  defining  the  order  of  the  arrays 

Labeled  Common 
None 

Subroutined  Called 
None 

Error  Detection 


None 


SUBROUTINE  CRMULT 

This  routine  computes  the  specified  leading  rows  of  a matrix  product 
wherein  the  pre-multiplier  matrix  is  complex. 

Algorithm 

When  the  logical  variable  SUM  is  false,  the  array  accommodating 
the  resulting  matrix  is  initialized  as  zero.  Otherwise,  It  is  simply 
incremented* to  yield  the  matrix  product  and  summation  C = C + A*B. 

Input/Output 

None 

Argument  List 

C A real  array  accommodating  the  product  matrix 

A A real  complex  array  accommodating  the  pre-multiplier 

• matri x 

B A real  array  accommodating  the  post-multiplier  matrix 

M An  integer  scalar  defining  the  row  dimension  of  arrays 

C and  A 

N An  integer  scalar  defining  the  column  dimension  of 

array  A and  the  row  dimension  of  array  B 

P An  Integer  scalar  defining  the  column  dimension  of  arrays 

B and  C 

ML  An  Integer  scalar  defining  the  computations  concerning  ML 

rows  of  C 

SUM  A logical  scalar  which  if  true,  C ■ C + A*B;  otherwise, 

C ■ A*B 

Labeled  Common 
None 
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Subroutines  Called 
None 


Error  Detection 


SUBROUTINE  EIGSOL 

This  routine  sets  up,  executes  and  disposes  of  the  eigen  problem. 
Algorithm 

The  upper  quadrants  of  array  A are  filled  with  the  negative  of  sym- 
metric modal  damping  an<J  mass  matrices,  C and  M,  reconstructed  in  their 
full  forms.  The  lower  left  quadrant  is  set  to  the  identity.  Subroutine 
SYMSOL  is  then  invoked,  with  the  Cholesky  decomposition  of  modal  stiff- 
ness matrix  K as  argument,  to  arrive  at: 

-K-1 C -K_1fl 
1 0 

Subroutine  RGEIG  now  performs  the  complete  eigenvalue  problem 
solution.  The  eigenvalues  are  reciprocated.  In  this  process,  equal 
eigenvalues  corresponding  to  equal  eigenvectors  are  recognized  as  being 
part  of  a singular  system.  An  attempt  to  remedy  this  condition  is  made 
by  scalar  multiplying  matrix  £ with  1.0001  and  going  through  the  complete 
procedure  anew.  Should  this  instability  persist,  the  printing  of  an 
appropriate  statement  is  followed  by  a call  to  subroutine  HALT.  Other- 
wise, the  writing  of  the  matrix  of  eigenvectors  onto  data  set  N8  is 
followed  by  their  inversion  through  subroutine  J0ROAN.  The  inverse  is 
also  output  onto  data  set  N8. 

Input/Output 

To  conserve  core  space,  the  matrix  of  eigenvectors  and  its 
inverse  are  stored  on  data  set  N8. 

Argument  List 

B A real  array  accommodating  the  eigenvalue  problem 

statement 
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X A real  array  accommodating  the  matrix  of  eigenvectors 

M An  Integer  which  defines  the  order  of  the  eigenvalue 

problem 

N An  integer  whose  value  is  M/2 

Labeled  Common 
LIMITS.  NOICES . TAPES 

Subroutines  Called 

CHLSKY,  COPY,  HALT.  JORDAN,  RGEIG,  SMULT,  SYMFIL , SYMS0L , 

WRITE,  ZERO 

Error  Detection 

Equal  complex  eigenvectors  with  corresponding  equal  eigenvalues 
are  detected  as  singular.  An  attempt  to  remedy  this  condition  is  made 
by  scalar  multiplying  matrix  Cwith  1.0001.  Should  the  unstable  con- 
dition persist,  the  printing  of  an  appropriate  message  is  followed 
by  the  call  to  subroutine  HALT. 
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SUBROUTINE  HALT 

This  routine  performs  termination  processing  as  necessary  in  the 
event  of  a fatal  error. 

A1 qori thm 

In  anticipation  of  certain  processing  requirements  before  job 
termination  initiated  by  the  detection  of  a fatal  error,  this  routine 
and  appropriate  calls  were  provided.  Subsequently,  however,  it  was 
determined  that  no  processing  of  this  nature  was  necessary. 

Input/Output 

A job  termination  message  is  output  to  unit  6. 

Argument  List 
None 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 


None 


SUBROUTINE  IMBAL 

For  each  physical  element  within  each  type  of  element,  this 
routine  computes  the  force,  stress  and  strain  matrices,  F^,  a and  e, 
and  writes  them  onto  the  output  data  set. 


Algorithm 

The  output  matrices  concern  bar  elements,  membrane  elements  and 
cell  elements.  Their  respective  F0RMAT  matrix  names  are  3ARS , MEMBRN 
and  CELLS.  Each  physical  element  is  represented  by  a column  whose 
contents  are  vectors  <3  and  c.  These  quantities  are  computed  as 
fol lows: 

Fk  3 aFj,  - DK^"  a 
where  OK  = F-p-  k 


a 3 aS(j  o^r  for  cells 


0 3 a-*  F> 


for  bars  and  membranes 


e 3 c a 
a 


Inout/Outout'- 

Tape  2 is  the  output  data  set.  For  each  physical  element,  matrix 
oj  is  read  from  data  set  .Ml 4;  the  matrix  quantity  PUF  F^iT  is  read  from 
data  set  N7;  <SF<0  is  read  from  N15;  and  eo  is  read  from  N1S. 

Argument  List 


Labeled  Common 
LIMITS,  NOICES,  TAPES 


239 


Subroutines  Called 


ADD,  ASYMB,  MULT,  0UTPUT,  READA,  READM,  SBTRCT,  TMULT , ZER0 

Error  Detection 
None 
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SUBROUTINE  JORDAN 

This  routine  inverts  in  situ  a complex  matrix  by  pivoting  on  the 
available  row  of  largest  magnitude  within  the  next  available  column. 

Algorithm 

The  method  used  is  Gauss-Jordan.  The  array  K0L  is  used  to  record 
the  order  of  rows  which  have  been  selected  for  pivoting. 

Input/Output 

None 

Argument  List 

A A real  matrix  which  is  transformed  to  its  inverse  prior 

to  exit  from  this  routine 

K0L  An  integer  work  array  of  dimension  2*N.  Prior  to  exit 

from  this  routine,  the  first  M locations  contain  the 
order  in  which  rows  have  been  selected  for  pivoting. 

The  second  fl  locations  contain  the  values  of  the  pivoting 
elements. 

N An  integer  scalar  defining  the  order  and  dimension  of 

• matrix 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  detection 
None 
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SUBROUTINE  LINEAR 


This  routine  computes  vectors  P,  Sa,  v and  v. 


Alqori  thm 

Data  set  N8  is  already  positioned  at  the  origin  of  the  matrix  of 
inverse  eigenvectors.  It  is  rewound  as  soon  as  this  matrix  has  been 
read.  The  next  read  then  brings  in  the  matrix  of  eigenvectors  proper. 

6a  and  v are  computed  in  the  complex  mode  and  transferred  to  their 
final  blank  common  destinations  in  the  real  mode.  Through  abstraction 
like  CALL  statements  to  utility  routines,  the  matrix  equations  to 
compute  P‘,  si,  7,  and  7 are  solved  in  the  following  manner: 


F * p + P(«|U  * sP(*)u 

Z * -K'1  P 

CaD  3 H"1  |~-j  diagonalized 
F ( t ) = e*T 

Q = Cad 

* - Hv  xD  q 

3 HQ 

si  si  -1 


Input/Output 

The  matrix  of  eigenvectors  and  its  inverse  are  read  from  data  set 
N8.  The  Incremental  applied  load  matrix  Is  from  data  set  N18. 


SUBROUTINE  MATIN 

This  routine  routes  F0RMAT  Program  input  matrices  and  arrays  from 
tape  20  to  the  intended,  or  interim,  data  sets. 

Algorithm 

Reading  over  the  data  set  header  positions  it  at  the  origin  of 
its  first  matrix. 


The  following  takes  place  with  each  item  sandwiched  between  a 
matrix  header  and  trailer.  The  data  set  designation,  onto  which  the 
next  matrix  in  sequence  is  to  be  written,  is  taken  from  the  list  NT 
and  rewound.  The  matrix  header  is  read  and  Ignored.  Each  record 
thereafter  is  transcribed.  Additionally,  the  third  matrix  is  also 
written  on  data  set  14.  This  process  continues  as  long  as  the  first 
word  of  the  records  thus  processed  is  a positive  integer.  Except  in 
the  case  of  matrix  PUF’  the  output  data  set  is  then  rewound. 


Input/Output 

The  list  of  throughput  matrices  and  the  data  set  onto  which  they 
are  output  follows: 


Matrix  Name 

V 

MPT 

Uo 

ECT 


H 


'EL 


1c 

c 


Data  Set  Number 

14 

3 

8,  14 

15 
13 
11 
17 

4 


Description 

Modal  element  force  transform 
Material  property  table 
Original  joint  coordinates 
Element  constant  table 
Element  mass  matrix 
Element  stiffness  matrix 
Element  damping  matrix 
Element  force  transform 
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Matrix  Name 

°r 

co 

5— 


Data  Set  Number 
15 
22 
10 


EYT 


Description 

Element  stress  transform 

Element  strain  transform 

Initial  thermal  element  defor- 
mations 

Element  variable  table 


Argument  List 

A A real  work  array 

NUM  An  Integer  scalar  used  as  a dimensioning  variable 

Labeled  Common 
None 

Subroutines  Called 
None 


Error  Detection 
None 
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SUBROUTINE  MBAR 


This  routine  fetches  the  upper  half  of  the  next  uncoupled  partition 
from  a tape  resident  symmetric  quasi -diagonal  matrix. 

Alqori thm 

The  end  product  of  this  routine  consists  of  a triangular  matrix  of 
order  NF  in  expanded  format  wherein  the  rows  begin  from  their  diagonal 
elements.  As  each  column  (K0LX  + 1)  through  (K0LX  + NF)  is  read  in  the 
compressed  format,  its  elements  preceding  the  diagonal  are  discarded. 
The  row  designations  of  the  elements  retained  are  reduced  by  the 
quantity  K0LX  - NF*(I-1),  where  I represents  the  sequence  of  these 
columns  from  1 through  NF.  One  call  to  subroutine  EUTL9  expands  this 
triangular  matrix  in  its  desired  form. 

Input/Output 

None 

Argument  List 

NF  An  integer  scalar  defining  the  number  of  rows  and  columns 

in  desired  matrix  partition 

K01X  An  integer  scalar  defining  the  designation  of  the  last 

column  read  on  previous  entry  into  this  routine 

A A real  storage  array 

NT  An  Integer  scalar  defining  the  designation  of  the  data 

set  containing  the  matrix 

Labeled  Corrmon 
None 

Subroutines  Called 
EUTL9 , READA,  ZER0 
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Error  Detection 
Mona 
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SUBROUTINE  MULT 


This  routine  performs  a matrix  product. 


A1 qori thm 


The  matrix  product  A*B  is  added  to  matrix  C.  Matrix  C is 
initialized  to  zero  only  when  the  logical  variable  SUM  is  false. 


Input/Output 


Argument  List 


A real  array  accommodating  the  product  matrix 
A real  array  accommodating  the  pre-multiplier  matrix 
A real  array  accommodating  the  post-multiplier  matrix 


An  integer  scalar  defining  the  row  dimension  of  matrices 
C and  A 


An  integer  scalar  defining  the  row  dimension  of  matrix  B 
and  the  column  dimension  of  matrix  A 


An  Integer  scalar  defining  the  row  dimension  of  matrices 
C and  B 


A logical  scalar  which  If  false,  array  C is  Initialized 
as  zero 


Labeled  Common 


Subroutines  Called 


Error  Detection 
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FUNCTION  NOXScT 

This  routine  defines  tine  elements  of  2 vector  used  to  segment 
the  working  core. 

Aloori  thm 

The  variable  I0RGN  contains  the  relative  location  from  which  the 
work  array  is  available  for  segmentation.  The  following  takes  place 
for  each  of  the  N apportionments : 1)  the  value  of  JX,  the  indexing 

pointer  used  with  vector  NCEX,  is  incremented;  2)  I0RGN  is  stored  into 
NOEX(JX);  3)  I3RGN  is  increased  by  INC,  the  extent  of  core  being 
allocated  each  origin. 

inout/Qutout 

None 

Argument  List 

INC  An  integer  scalar  defining  the  extent  of  core  to  be 

allocated  with  each  origin  NOEX(I) 

N Number  of  origins  to  be  defined 

Labeled  Common 
LIMITS,  NO  I CSS 

Subroutines  Called 
None 

•r-or  Detection 
None 
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SUBROUTINE  NITIAL 

This  is  the  intializlng  routine. 

Algorithm 

The  variables  N1  through  N20,  which  are  contained  within  labeled 
common  TAPES,  are  sequencially  set  to  represent  tapes  1 through  4,  and 
8 through  23. 

The  input  matrices  are  read  in  their  F0RMAT  generated  mode  and 
written  onto  their  interim,  or  intended,  data  sets  via  subroutine 
MATIN.  The  following  delimiting  parameters  are  read  from  the  first 
input  card. 


Item 

Jm. 

Description 

BETA 

INTEGER 

Starting  time 

NELEMS 

INTEGER 

Number  of  structural  elements 

NTRVLS 

INTEGER 

Number  of  time  intervals 

MG 

INTEGER 

Number  of  modes 

HEAT 

LOGICAL 

"TRUE"  indicates  presence  of 
thermal  conditions 

NJTS 

INTEGER 

Number  of  structural  joints 

NWjJRK 

INTEGER 

Number  of  words  in  blank  common 

Blank  common  array  A is  apportioned  to  the  various  matrices  and 
arrays  through  the  designation  of  their  respective  origins  by  the 
Index  from  labeled  common  NOICES. 

The  NTRVLS  values  concerning  the  time  array  are  read  into  the 
space  beginning  with  A(ITIME)  and  checked  for  their  being  in  ascending 
oraer.  Execution  is  halted  with  an  appropriate  statement  when  this 
check  fails. 


350 


THIS  PAGE  IS  BEST  QUALITY  FKACIICABIdl 
FROM  copy  furnished  ro  E©C  ^ 

The  constant  matrix  ?3(j  for  cell  elements  is  generated  and  stored 
atA(ISISSS). 

Overlay  within  array  A is  affected  by  assigning  !:<3L  and  IU  the 
same  value.  The  first  of  these  subscripts  represent  the  origin  of 
space  used  by  subroutine  EISS31  only;  the  second  is  the  leading  sub- 
script of  non-conversant  space  used  by  other  modules. 

SuDroutine  REAOK  is  invoked  to  merge  selected  matrices  residing 
on  interim  data  sets.  7ne  arrays  which  are  to  accommodate  the  follow- 
ing  vectors  are  initialized  with  zeroes:  7,  7,  7^,  oP^,  5?^^, 

^(Cju-  4?"(*)U’  if1d  5?CL' 


Inout/Cutout 

All  card  input  takes  place  in  this  routine.  In  addition,  the 
following  input  matrices  are  written  onto  the  post-processing  data 
set,  tape  2:  the  array  of  constants  under  its  input  rflRMAT  orogram 
matrix  name;  the  array  of  time  intervals  under  the  matrix  name  TIME; 
the  array  of  joint  coordinates  under  the  matrix  name  IIZEB3;  vectors 
7^^  and  T,p-  under  their  input  names. 


Arcument  Lis' 
None 


’-abeled  Common 
LIMITS,  NOICES,  TAPES 


Suoroutines  Called 

ASVVB , ChGSo.’i , MATIN,  NCXScT, 


PE.-CA,  REACK,  SISPBP,  SCR",  V-SITS,  IE-C 


irr~r  38C2C 


•c  r.e 


SUBROUT  I ilE  OUTPUT 

This  routine  stores  output  onto  the  output  data  set  In  the  mode 
of  the  F0RMAT  program. 

Alqori thm 

Vectors  a,  oa,  v,  v,  <5?^,  and  are  written  onto  data  set  2 

as  a single  column  F0RMAT  matrix  with  the  name  RESPNS. 

Input/Output 

Matrix  RESPNS  is  output  to  data  set  2. 

Argument  List 
None 

Labeled  Common 
LIMITS,  NOICES,  TAPES 

Subroutines  Called 
WRITE 

Error  Detection 
None 
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subroutine  psaruf 

This  routine  reads  a partition  of  matrix  Fx  and  the  corresponding 
partition  of  matrix  F^p. 

Algori thm 

Data  sat  N13  contains  matrix  ~y  in  the  form  of  one  partition  per 

record,  heading  one  such  record  provides  the  information  necessary 

to  determine  the  columns  bounding  the  desired  partition  of  7.,e. 

uF 

Inout/Outout 

Matrix  rj  is  read  from  data  set  N13.  Matrix  7^  is  read  from 
data  set  Ml  1 . 

Argument  List 
None 

Labeled  Common 
LIMITS,  NOICES , TAPES 


SUBROUTINE  PREEIG 


This  routine  generates  matrices  M,  K,  Z and  ^q. 

Algorithm 

For  each  element,  the  matrix  operations  are  performed  through 
abstraction  like  CALL  statements  to  utility  routines.  Having  initializ- 
ed matrices  K,  C,  M,  F,  and  F^^  as  zero,  the  matrix  operations  per- 
formed are  as  follows: 

srK0 » -it  «?T 
0 ’ ruF  Fr 


P = P + D 6F 


KO 


DK  = Dk 


K = K + DK  D1 
C =*  C + DC  0T 
M = M + Fyp  m FypT 

If  point  mass  elements  exist,  their  contribution  to  the  modal  mass 
matrix,  IT,  is  computed  and  added  by  a single  call  to  subroutine  PTMASS. 


Input/Output 

For  each  physical  element,  a partition  of  the  matrices  F,  c and 
4^-  is  read  in  that  sequence  from  data  set  Nl.  Similar  partitions  of 

matrices  F^p,  Fy,  and  m are  read  from  data  sets  Nil,  Nl 3 and  N10, 
respectively.  The  contribution  of  each  physical  element  to  matrix 
OK  is  written  onto  data  set  N7  and,  similarly,  the  contribution  to 
5Fkq  Is  written  onto  N15. 
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THIS  PAGE  IS  BEST  QUALITY  FRACTICABLi 
PRO*»  COPY  PUBLISHED  TO  HOC  , - — 

Labe’  ed  Ccrcron 
LIMITS,  NO ICES , TAPES 

Subroutine  Called 

A3SYM,  A00,  ASYMS,  CHGSG.N,  MBAR,  MULT,  PSARUF,  PTMASS,  REACA,  SYMAST, 

WRIT EM,  ZSR3 

Error  Detection 
None 


SUBROUTINE  PRINTR 


This  routine  prints  a core  resident  matrix. 

Algorithm 

Groups  of  not  more  than  8 columns  across  each  page  are  written 
for  partitions  of  not  more  than  55  rows.  Each  page  is  headed  with 
the  title.  The  column  designations  appear  under  the  title.  The  row 
designations  precede  each  row.  Only  the  most  significant  aspect  of 
double  precision  matrices  is  written.  Two  calls  to  this  routine  are 
required  to  print  a complex  matrix. 

Input/Output 

None 

Argument  List 

A A real  array  accommodating  the  matrix  to  be  printed 

K An  integer  scalar  used  as  a dimensioning  variable.  K * 1 

for  real  and  single  precision  arrays.  K * 2 for  compressed 
or  double  precision  arrays.  K = 4 for  double  precision 
complex  arrays. 

M An  integer  scalar  defining  the  row  dimension 

U An  integer  scalar  defining  the  column  dimension 

TITLE  An  alphanumeric  scalar  for  header  data 

Labeled  Common 
None 

Subroutines  Called 
None 
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error  retecticn 
None 
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SUBROUTINE  PTMASS 

This  routine  concludes  the  computations  of  M with  the  contributions 
of  the  point-mass  elements. 

Alqorl thm 

The  computations  concern  the  triple  product  Fyp  involving 

point  mass  elements.  consists  of  one  element.  The  columns  of 
these  matrices  are  read  and  the  computations  are  exercised  upon 
matching  the  column  designations. 

Input/Output 

Matrix  is  read  from  data  set  N10.  Matrix  Is  read  from 
data  set  Nil. 

Argument  List 
None 

Labeled  Common 
LIMITS,  NDICES , TAPES 

Subroutines  Called 
READA,  EUTL9 , ABSYM,  SYMABT 

Error  Detection 
None 
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SUBROUTINE  REA OK 


This  routine  transcribes  "2RM AT  program  generated  .matrices  from 
interim  data  sets  to  their  intended  data  sets. 


Alqcri thm 

The  symmetric  quasi -diagonal  matrices  iT,  e and  c are  read  in  their 
full  forms.  They  are  retained  only  in  their  symmetric  halves  prior 
to  being  written  as  single  compressed  records. 

Matrix  5e-  is  simply  cooied  from  its  input  to  its  output  tape. 

The  quasi -diagonal  matrix  rj  is  output  in  records  of  sub-matrix 
parti  tiers. 

Inout/Outout 

Matrices  F,  e , z,  oeT,  and  "■=■  are  respectively  read  from  data 
3 I r 

sets  N8,  Nl-9,  Ml 4,  NT 0 , and  N4 ; matrices  e?  and  rj  are  written  onto 
data  sets  Nlo  and  NT 3 . Matrices  IT,  c and  se-  are  written  onto  data 
set  Ml  in  the  sequence  ^ , Cj , c?,  se-^,  , etc. 

Arcument  List 
None 

Labeled  Common 
LIMITS,  NO  ICES,  TAPES 

Subroutines  Called 
EUTL3 , M3AR,  REACA , "RITE 


•--or  letecticn 
None 


SUBROUTINE  READM 


r 


This  routine  reads  a matrix  which  was  written 
via  subroutine  WRITEM. 


on  a scratch  data  set 


Algorithm 

The  matrix  is  read  via  subroutine  READA.  Should  it  be  compressed, 
subroutine  EUTL9  expands  it. 

Input/Output 

The  matrix  is  read  from  data  set  NT. 

Argument  List 

M A dummy  argument 

N A dummy  argument 

A A real  array  into  which  the  matrix  is  read 

NT  An  integer  scalar  defining  the  input  data  set 

Labeled  Common 
None 


Subroutine  Called 
None 

Error  Detection 
None 


: 
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SUBROUTINE  S3TRCT 

This  routine  computes  the  arithmetic  difference  between  two 
vectors . 

Algorithm 

The  algebraic  difference  between  vectors  A and  8 Is  stored  In 
vector  C. 

Input/Output 


Argument  List 


A real  array  for  the  resulting  vector 
A real  array  for  the  vector  being  subtracted 
A real  array  for  the  subtracting  vector 
An  integer  scalar  defining  the  order  of  vectors 


Labeled  Cornnon 


Subroutines  Called 


Error  Oetection 
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SUBROUTINE  SIGFBR 

This  routine  partitions  a quasi -diagonal  matrix  and  outputs  its 
partitions  in  single  compressed  records. 

Algorithm 

The  columns  of  each  partition  are  read  and  stored  consecutively  in 
their  compressed  format.  In  the  process,  the  row  designations  are 
replaced  by  the  location  of  the  elements  relative  to  the  current  sub- 
matrix. A single  call  to  subroutine  EUTL9  expands  the  partition  which 
Is  then  output  by  subroutine  WRITEM. 

Inout/Output 

The  matrix  is  read  from  data  set  N14  and  written  onto  data  set 

N12. 

Argument  List 
None 

Labeled  Common 
TAPES,  LIMITS,  NDICES 

Subroutines  Called 
EUTL9,  READA,  WRITEM 

Error  Detection 


SUBROUTINE  SMULT 

This  routine  scales  a matrix. 

Algorithm 

Each  element  of  array  A Is  multiplied  by  the  scalar  S,  and  the 
product  Is  stored  In  array  C. 

Input/Output 

None 

Argument  List 

C A real  array  accommodating  the  output  matrix 

S A real  scalar  coefficient 

A A real  array  accommodating  the  matrix  to  be  scaled 

M • An  integer  scalar  defining  the  row  dimension 

M An  Integer  scalar  defining  the  column  dimension 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  SYMABT 

This  routine  computes  the  triangular  half  of  a symmetric  matrix 
where  the  post-multiplier  is  transposed. 

Alqorl thm 

The  mode  of  storage  of  the  product  matrix  is  cn‘*'*CTn»  C22* * *^2n * 
etc.  When  the  logical  variable  SUM  is  false,  the  array  accommodating 
the  resulting  matrix  is  Initialized  as  zero. 

Input/Output 

None 

Argument  List 

C A real  array  for  the  triangular  product  matrix 

A A real  array  for  the  pre-multiplier  matrix 

B A real  array  for  the  transposed  post-multiplier  matrix 

M An  integer  scalar  defining  the  row  dimension  of  all  matrices 

N An  integer  scalar  defining  the  column  dimension  of  A 

•and  B matrices 

SUM  A logical  scalar  when  false,  causes  the  resulting  matrix 

to  be  initialized  as  zero 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  SYMFIL 


W 


This  routine  stores  a symmetric  half  matrix  into  the  partition  of 
an  array  while  reversing  the  sign. 

Algori thm 

The  mode  of  storage  of  the  symmetric  half-matrix  is  a^  , ...  a^n, 
a22  ....  When  K ■ 1,  the  receiving  matrix  is  real.  When  K = 2,  it 
is  complex.  Note  that  in  this  case,  the  imaginary  components  are  left 
untouched. 

Input/Output 

None 

Argument  List 

A A real  array  for  the  symmetric  half-matrix 

8 A real  or  complex  array  for  the  output  matrix 

K An  integer  scalar  where  K = 1 for  real  B array,  K * 2 for 

complex  B array 

M An  integer  scalar  defining  the  row  dimension  of  B array 

N An  integer  scalar  defining  the  order  of  symmetric  matrix 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  SYHS0L 

Given  matrices  L and  B in  the  expression  LLTX  ■ B;  this  routine 
transforms  B into  X. 


Algorithm 

The  mode  of  storage  for  matrix  L Is  l^  , • • • , 1^ , • • . X is 

computed  by  way  of  Y where  LY  * B.  Then,  iJx  » Y.  The  array  storing 
matrices  B and  X may  be  real  or  complex.  When  the  integer  K is  1,  the 
array  is  real;  when  K is  2,  the  array  is  complex. 


Input/Output 

None 


Argument  List 

A A real  array  accommodating  matrix  L in  the  mode  of 

. storage  1 • l'nl • ]2Z’“ 

B A real  or  complex  array  accommodating  matrices  B,  Y and  X 

K An  integer  scalar  where  array  B is  real  when  K * 1 , and 

complex  when  K = 2 

M An  integer  scalar  defining  the  row  dimension  of  array  B 

N An  integer  scalar  defining  the  order  of  equation 

P An  integer  scalar  defining  the  number  of  columns  in 

matrices  B,  Y and  X 

Labeled  Common 
None 


Subroutines  Called 
None 


A. 
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Error  Detection 


None 


SUBROUTINE  TMULT 


; 


I 
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This  routine  performs  a matrix  cross  product  wherein  the  pre- 
multiplier matrix  is  transposed. 


A1 qorithm 

The  matrix  product  transpose  A^B  is  added  to  matrix  C.  Matrix  C 
is  initialized  to  zero  only  when  the  logical  variable  SUM  is  false. 

Input/Output 

None 

Argument  List 

C A real  array  accommodating  the  product  matrix 

A A real  array  accommodating  the  pre-multiplier  matrix 

B A real  array  accommodating  the  post-multiplier  matrix 

M An  integer  scalar  defining  the  row  dimension  of  matrix  C 

and  column  dimension  of  matrix  A 

An  integer  row  dimension  of  matrices  A and  B 

N An  integer  scalar  defining  the  row  dimension  of  matrix  C 

and  column  dimension  of  matrix  A 

An  integer  row  dimension  of  matrices  A and  B 

P An  integer  column  dimension  of  matrices  B and  C 

SUM  A logical  scalar  when  false  causes  array  C to  be 

initialized  as  zero 


Labeled  Common 
None 
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Subroutines  Called 
None 


SUBROUTINE  VDMULT 


This  routine  performs  the  element  by  element  Droduct  of  two  complex 
vectors. 

Algorithm 

The  element  by  element  product  of  complex  vectors  A and  B is 
stored  in  vector  C. 

Input/Output 
None 

Argument  List 

C A complex  array  for  the  output  vector  C 

A A complex  array  for  the  input  vector  A 

B A complex  array  for  the  input  vector  B 

N An  integer  scalar  defining  the  order  of  the  vectors 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 

11 
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SUBROUTINE  WRITEM 

This  routine  writes  a one-record  matrix,  compressed  (as  required). 
Algori thm 

Following  an  attempt  to  compress  the  matrix  via  subroutine  SQUEEZ, 
it  is  written  onto  the  output  data  set  NT. 

Input/Output 

The  matrix  Is  written  onto  the  output  data  set. 

Argument  List 

M An  Integer  scalar  defining  the  matrix  row  dimension 

N An  integer  scalar  defining  the  matrix  column  dimension 

A A real  array  for  the  input  matrix 

NT  An  integer  scalar  defining  the  output  data  set 

Labeled  Common 
None 

Subroutines  Called 
SQUEEZ,  WRITE 

Error  Detection 
Hone 
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SUBROUTINE  XP0NNT 

Given  complex  vector  D and  vector  T,  this  routine  finds  vector 

» D*T 
A * e . 

Alqori thm 

All  computations  take  place  in  the  real  mode  as  vectors  A and  D 
are  doubly  dimensioned  arrays. 

Input/Qutput 

None 

Argument  List 

A A real  array  accommodating  the  output  vector 

0 A real  array  for  the  complex  input  vector  treated  in  the 

real  mode 

T A real  array  for  the  input  vector 

N An  integer  scalar  defining  the  order  of  vectors 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  ZER0 

This  routine  zeros  an  array. 

A1 qori thm 

The  specified  extent  of  array  A is  set  to  zero. 

Input/Output 

None 

Argument  List 

A A real  array  to  be  set  to  zero 

N An  Integer  scalar  defining  the  extent  of  A to  be  set 

to  zero 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 
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APPENDIX  E 

NONLINEAR  INCREMENTAL  ROUTINES 
AND 

LABELED  COMMON  BLOCKS 


This  appendix  contains  detailed  descriptions  of  all  routines  and 
labeled  cornnon  blocks  in  this  program.  Table  E gives  either  page  number 
references  within  this  document  or  references  to  other  documents  for 
documentation  of  each  routine  or  labeled  common  block.  Some  page  number 
references  may  be  to  preceding  appendices  where  the  documentation  for 
a routine  in  this  program  is  identical  to  a previously  documented  routine. 
This  does  not  imply  verbatum  source  code  duplication  for  the  routine,  only 
functional  duplication  is  implied. 


The  detailed  description  of  each  routine  is  divided  into  the  following 
subheadings: 


Alqorithm 

verbal  flow 

Input/Output 

description 

Arqument  List 

name,  type, 

Labeled  Common' 

list  of  all 

Subroutines  Called 

list  of  all 

Error  Detection 

description 

taken 

chart  of  routine  logic  and  data  flow 
of  all  external  data  set  input/output 
and  description  of  each  argument 
labeled  common  blocks  declared 
routines  called 

of  tests  made  for  errors  and  action 


The  detailed  description  of  each  labeled  common  block  is  divided  into 
the  following  subheadings: 


Declaration  verbatum  declaration  of  the  labeled  common  block 

Contents  name  and  description  of  each  variable  appearing 

in  the  declaration 


Usage 


list  of  all  routines  which  contain  declarations 
for  the  labeled  common  block 
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TABLE  E.  INDEX  TO  NONLINEAR  INCREMENTAL  ROUTINES  AND 
LABELED  COMMON  BLOCKS 


Page 

MAIN  PROGRAM  RESPNS 380 

LABELED  COMMON  CRRAYS  382 

LABELED  COMMON  FICNDX  333 

LABELED  COMMON  GE0MS  335 

LABELED  COMMON  LIMITS  386 

LABELED  COMMON  LPEM  388 

LABELED  COMMON  NDICES  393 

LABELED  COMMON  TAPES  397 

SUBROUTINE  ABSYM  325 

SUBROUTINE  ADD 326 

SUBROUTINE  . ASYMB 327 

SUBROUTINE  AVRAGE  399 

SUBROUTINE  BALANC  Ref.  16 

SUBROUTINE  8ALBAK  Ref.  16 

SUBROUTINE  CCMULT  329 

SUBROUTINE  CHGSGN  331 

SUBROUTINE  CHK0UT  400 

SUBROUTINE  CHKPNT  401 

SUBROUTINE  CHLSKY  332 

SUBROUTINE  COPY 333 

SUBROUTINE  CRMULT  334 

SUBROUTINE  EDGUNV  402 

SUBROUTINE  EIGS0L  404 

SUBROUTINE  ELMHES  Ref.  16 

SUBROUTINE  ELTRAN  Ref.  16 

SUBROUTINE  EUTL9  Ref.  6 

SUBROUTINE  FIFDEF  406 

SUBROUTINE  FORMAT  409 


TABLE  E.  INDEX  TO  NONLINEAR  INCREMENTAL  ROUTINES  AND 
LABELED  COMMON  BLOCKS  (Continued) 


SUBROUTINE 

GE0M  . 

SUBROUTINE 

HALT  . 

SUBROUTINE 

HQR  . 

SUBROUTINE 

HQR2  . 

SUBROUTINE 

IMBAL. 
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LPCFFB 

SUBROUTINE 
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SUBROUTINE 
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MATIN 
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TABLE  E.  INDEX  TO  NONLINEAR  INCRMENTAL  ROUTINES  AND 
LABELED  COMMON  BLOCKS  (Continued) 

Page 

FUNCTION  P0LS0L  438 

SUBROUTINE  PREBAL  440 

SUBROUTINE  PREBGM  443 

SUBROUTINE  PREBGU  444 
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SUBROUTINE  VDMULT  370 

SUBROUTINE  VECT 284 

SUBROUTINE  WRITE  Ref>  5 

SUBROUTINE  WRITEM  371 

SUBROUTINE  XP0NNT  372 

SUBROUTINE  ZER0 373 
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MAIN  PR0GRAM  RESPNS 

This  is  the  executive  routine  for  the  Nonlinear  Incremental  Solution 
program. 

Algorithm 

This  routine  controls  the  incremental  solution  process  including  the 
iterations  necessary  to  determine  the  modal  response.  Routine  NITIAL  is 
called  first  to  establish  partitions  of  array  A in  blank  common  as  required 
by  problem  size.  Routine  0UTPUT  is  then  called  to  transcribe  certain  mast- 
er Input  data  to  the  master  output  file. 

A loop  is  then  entered  the  index  of  which  is  the  number  of  increments 
defined  in  the  card  input  data.  Routines  PREEIG,  EIGS0L,  FIFDEF,  PREBAL, 
and  IMBAL  are  the  executive  routines  for  the  modules  which  make  up  the  in- 
cremental solution.  These  modules  are  called  in  sequence  for  each  incre- 
ment within  which  routines  EIGS0L  and  FIFDEF  are  iterated  through  5 times. 
The  variable  controlling  the  number  of  iterations  is  NFFMAX  which  is  initial' 
ized  as  5. 

The  basic  functions  of  each  routine  called  during  the  incremental  sol- 
ution are 

1)  PREEIG  - compute  M in  the  first  increment  and  compute  K,  C,  and  P 

in  every  increment 

2)  EIGS0L  - assemble  the  A matrix,  solve  for  all  eigenvalues  and. eigen- 

vectors, and  compute  the  modal  response,  5A,  v,  and  7 

3)  FIFDEF  - temporarily  update  geometry  and  compute  the  fictitious 

force  and  deformation  effects,  sk  and  tk 

4)  PREBAL  - permanently  update  geometry  and  regenerate  Fj:  and  <jp 

5)  IMBAL  - compute  element  forces,  stresses,  and  strains  from  the 

modal  response  and  new  geometry 

Array  DBLL  is  used  to  store  the  cumulative  modal  displacements,  a,  and 
is  of  length  NG,  the  number  of  modes.  This  array  is  currently  declared  in 
a DIMENSION  statement  and  is  of  length  75.  A partition  of  length  NG  for 
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storing  a should  be  allocated  in  the  blank  common  array  A by  routine  NITIAL 
rather  than  using  a dimensioned  array. 

Array  A (IVBX)  is  used  to  store  the  modal  loads,  P,  which  are  acting 
at  the  beginning  of  the  increment.  Arrays  A(ISK)  and  A( ITK)  are  used  to 
store  the  equivalent  modal  loads  due  to  fictitious  force  and  deformation 
effects,  respectively,  which  at  computed  by  FIFDEF  for  each  iteration. 


hone 


Labeled  Common 
NDICES,  LIMITS,  TAPES 

Subroutines  Called 

C0PY,  EIGSOL,  FIFDEF,  IMBAL,  NITIAL,  0UTPUT,  PREBAL,  PREEIG,  ZER0 

Error  Detection 
None 


AD-A063  741 


UNCLASSIFIED 


4^6 

ADA 

063741 


DOUGLAS  AIRCRAFT  CO  LONG  BEACH  CALIF  F/6  1/3 

AIRCRAFT  WINDSHIELD  BIRO  IMPACT  MATH  MODEL.  PART  3.  PROGRAMMING— ETC <U> 
DEC  77  R C MORRIS  F33615-75-C-3105 

MDC-J-7174-PT-3  AFFDL-TR-77-99-PT-3  NL 


Subroutines  Called 


None 

Error  Detection 


SUBROUTINE  WPART 

This  routine  writes  a partition  of  a matrix  onto  tape  in  standard 
F0RHAT  matrix  data  format. 

Algorithm 

Each  column  of  the  matrix  partition  A is  written  onto  tape  in  the 
compressed  mode.  The  origin  of  matrix  partition  A in  the  overall  output 
matrix  is  at  row  IR0W  and  column  IC0L.  The  row/column  indices  of  the 
element  of  array  A are  incremented  by  IR0W  and  IC0L  to  obtain  their  proper 
location  in  the  overall  matrix. 

Input/Output 

A matrix  partition  is  v/ritten  onto  tape  TAPEN0. 

Argument  List 

TAPEN0  An  integer  scalar  defining  the  number  of  the  last  column 
output  logical  tape  number 

IR0W  An  integer  scalar  defining  the  number  of  last  row  output 

IC0L  An  integer  scalar  defining  the  number  of  the  last  column 

output 

A A real  array  for  the  core  resident  matrix  partition  A 

M An  integer  scalar  defining  the  number  of  rows  of  matrix 

partition  A 

N An  Integer  scalar  defining  the  number  of  columns  of  matrix 

partition  A 

Labeled  Common 
None 

Subroutines  Called 
Hone 
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SU3R0UTINE  WRMAT 


This  routine  prints  a matrix  residing  in  the  core. 

Algorithm 

The  maximum  column  dimension  of  the  matrix  to  be  printed  is  50.  If 
MAP  is  equal  to  zero,  the  elements  of  the  matrix  are  printed.  If  MAP 
is  not  zero,  a map  of  the  non-zero  elements  of  the  matrix  is  printed. 

This  routine  is  executed  only  in  runs  made  for  program  checkout. 

Input/Outout 

Matrix  data  is  printed  on  tape  6. 

Argument  List 

AMAT  A real  array  for  the  matrix  to  be  printed 

M An  integer  scalar  defining  the  number  of  rows  in  AMAT 

N An  integer  scalar  defining  the  number  of  columns  of  AMAT 

MAP  An  integer  scalar  print  control  flag 

LABEL  Matrix  label 

L An  integer  scalar  defining  the  number  of  words  (10  char/word) 

in  LABEL 

Labeled  Common 
None 


Subroutines  Called 
None 


SUBROUTINE  WTAPE1 

This  routine  reads  the  element  partitions  for  matrices  KEL,  MEL, 

KBAR,  CBAR,  FFBAR,  SIGFB,  EPSIG,  DEBT,  EVT,  and  C0NST,  assenfcles  the 
partitions  Into  the  final  matrices,  and  outputs  the  matrices  as 
standard  F0RMAT  matrix  data. 

A1 gori thm 

The  order  In  which  the  first  nine  output  matrices  are  processed 
Is  KEL,  MEL,  KBAR,  CBAR,  FFBAR,  SIGFB,  DPSIG,  DEBT,  and  EVT.  In  each 
case,  the  element  data  Is  read  and  processed  in  the  order  bars,  membranes, 
and  cells.  The  only  matrix  having  contributions  from  point  mass  ele- 
ments, which  are  processed  last.  Is  matrix  MEL.  However,  trailing  null 
partitions  are  also  present  in  matrix  KEL  for  point  mass  elements. 

In  all  of  these  matrices  with  the  exception  of  DEBT  and  EVT,  the 
element  partitions  are  positioned  as  diagonal  or  psuedo  diagonal 
partitions.  In  matrices  DEBT  and  EVT,  each  element  partition  is  a single 
column  each  beginning  In  the  first  row. 

Finally,  array  C0NST  which  contains  problem  constants  is  output 
as  a single  column  matrix. 

Input/Output 

Matrix  data  Is  read  from  tapes  7 through  15  and  all  output  data 
Is  written  to  tape  1. 

Tape  Matrix 

14  KEL 

10  MEL 

13  KBAR 

8 CBAR 

12  FFBAR 
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Tape 

Matrix 

15 

SIGFB 

11 

EPSIG 

9 

DEBT 

7 

EVT 

Argument  List 
None 

Labeled  Common 
CjJNST,  IERR0R 

Subroutines  Called 
MATHD,  MATTR,  WPART 

Error  Detection 
None 
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APPENDIX  C 

LOADS  GENERATOR  ROUTINES 


This  appendix  contains  detailed  descriptions  of  all  routines  in  this 
program.  Table  C gives  either  page  number  references  within  this  document 
or  references  to  other  documents  for  documentation  of  each  routine.  Some 
page  number  references  may  be  to  preceding  appendices  where  the  documentation 
for  a routine  in  this  program  is  identical  to  a previously  documented 
routine.  This  does  not  imply  verbatum  source  code  duplication  for  the 
routine,  only  functional  duplication  is  implied. 


The  detailed  description  of  each  routine  is  divided  into  the  following 
subheadings: 


Algorithm 

verbal  flow 

Input/Output 

description 

Arqument  List 

name,  type. 

Labeled  Common 

list  of  all 

Subroutines  Called 

list  of  all 

Error  Detection 

description 

taken 

chart  of  routine  logic  and  data  flow 
of  all  external  data  set  Input/output 
and  description  of  each  argument 
labeled  common  blocks  declared 
routines  called 

of  tests  made  for  errors  and  action 
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FUNCTION 
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MAIN  PR0GRAM  L0DGEN 

The  main  program  allocates  core  and  calls  subroutines  to  read,  cal- 
culate, and  output  incremental  loads  data. 

A1 qorlthm 

The  subroutines  READC0  and  READCN  are  called  and  the  average  impact 
force  is  calculated.  The  load  increment  loop  is  then  entered  and  READS 
and  READJ  are  called.  The  current  total  load  on  the  model  and  the  loca- 
tion of  the  center  of  its  footprint  for  this  load  increment  are  calcu- 
lated, the  largest  component  of  the  centroidal  vector  is  determined,  and 
the  subroutines  GENA8  and  MATMUL  are  called.  If  the  load  increment 
number  is  greater  than  one  and  less  than  or  equal  to  the  total  number 
of  load  increments,  subroutine  DELTA  is  called.  If  the  increment 
number  is  one,  there  is  no  need  to  calculate  the  change  in  loads  from 
the  preceding  increment  to  this,  since  this  change  is  the  current  load, 
and  if  the  load  increment  number  is  equal  to  the  number  of  increments 
plus  one,  the  change  in  load  is  the  negative  of  the  preceding  load. 
Subroutine  0UTPUT  is  then  called  and  the  current  loads  and  the  joints 
of  their  applications  are  stored  at  the  end  of  the  A array  for  use  in 
the  next  load  increment. 

Input/Output 

There  is  no  input;  all  output  is  printed  on  file  6. 

Argument  List 
None 

Labeled  Common 
None 
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Subroutines  Called 


CR0SS,  D0T , MATMUl,  READB,  READC0,  UVEC,  DELTA,  GENAB,  0UTPUT,  READCN, 
READJ 

Error  Detection 

If,  in  either  of  the  checks  on  utilization  of  the  A array,  it  is 
found  that  the  available  storage  in  the  A array  has  been  exceeded,  the 
message 

'INSUFFICIENT  STORAGE  nnnnn  VS  nnnnn* 
is  printed  and  the  program  is  terminated. 


SUBROUTINE  DELTA 


This  routine  compares  the  joint  loads  of  the  current  load  Increment 
to  the  joint  loads  of  the  previous  load  increment  and  finds  the  change 
in  load  at  each  joint. 

Algorithm 

Since  only  non-zero  joint  loads  for  the  current  and  previous  load 
increments  are  stored  in  order  of  the  joint  numbers,  there  are  three 
basic  possibilities  for  each  change  in  joint  load.  (1)  The  joint  is 
loaded  in  the  current  increment,  but  not  in  the  previous  increment; 

(2)  the  joint  is  loaded  in  both  the  current  and  previous  increments; 
or  (3)  the  joint  was  loaded  in  the  previous  increment  but  not  in  the 
current  increment.  In  any  case  the  change  in  load  on  the  joints  loaded 
currently  or  in  the  previous  load  increments,  are  found  and  stored  in 
order  of  the  numbers  of  the  joints. 

Input/Out  • 

None 

Argument  List 


J0INT0 

An  integer  array  of  the  numbers  of  joints  that  received 
load  in  the  previous  load  increment 

PHI0LD 

A real  array  of  loads  on  the  joints  in  the  previous  load 
increment 

J0INTN 

An  integer  array  of  the  numbers  of  joints  that  receive 
load  in  this  increment 

PHINEW 

A real  array  of  the  loads  on  the  joints  in  the  current 
load  increment 

JTDEL 

An  Integer  array  of  the  numbers  of  joints  that  were  loaded 
in  the  previous  load  increment  or  are  loaded  in  the 
current  increment 

DELPHI 

A real  array  of  the  changes  in  joint  loads  from  the 
previous  load  increment 

1 
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NJT0  An ■ integer  scalar  defining  the  number  of  joints  that  re- 

ceived load  in  the  previous  load  Increment 

NJTN  An  integer  scalar  defining  the  number  of  joints  that 

receive  load  in  the  current  increment 

NDELPH  An  integer  scalar  defining  the  number  of  joints  that 

receive  load  in  either  the  current  or  previous  load 
Increments 

Labeled  Common 

None 

Subroutines  Called 

None 

Error  Detection 

None 


SUBROUTINE  GENAB 


This  routine  generates  the  A and  B matrices. 

Algorithm 

The  B matrix's  three  members  are  calculated  first  from  the  cross 
product  of  the  vector  to  the  current  footprint  location  and  the  unit 
vector  in  the  direction  of  load  application.  The  A array  (dimension 
3X  NJTN)  is  created  second,  using  the  cross  products  of  the  vectors 
to  the  joints  that  are  to  receive  load  and  the  unit  vector  in  the 
direction  of  load  application. 

Input/Output 

None 

Argument  List 

C00RJ  A real  array  of  coordinates  of  all  the  joints 

J0INTN  An  integer  array  defining  numbers  of  joints  that  are  to 

be  loaded  in  this  load  increment 

ABETA  A real  array  defining  the  A array  for  this  load  Increment 

BBETA  -A  real  array  defining  the  B array  for  this  load  Increment 

CBETA  A real  array  of  the  coordinates  of  the  center  of  the 

footprint 

UVAPP  A real  array  defining  the  unit  vector  in  the  direction  of 

load  application 

NJTN  An  integer  scalar  defining  the  number  of  joints  to  be 

loaded  in  this  load  Increment 

IR0W2  An  integer  scalar  defining  the  number  of  one  of  the 

principal  axes  in  the  reference  plane 


IR0W3 


An  integer  scalar  defining  the  number  of  the  other 
principal  axis  in  the  reference  plane 


Labeled  Common 


None 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  INVERT 

This  routine  inverts  a 3 x 3 matrix  by  the  method  of  successive 
transformations. 

Algorithm 

An  identity  matrix  is  set  up  first,  then,  while  the  matrix  to  be 
inverted  is  turned  into  an  Identity  matrix,  the  row  operations  to  do  so 
are  also  performed  on  the  identity  matrix.  When  the  input  matrix  is 
an  identity  matrix,  the  identity  matrix  has  been  transformed  into  the 
inverse  matrix. 

Input/Output 

None 

Argument  List 

AAT  A real  array  defining  the  input  matrix  to  be  inverted 

AATIN  A real  array  defining  the  inverted  output  matrix 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 


300 


SUBROUTINE  MATMUL 

This  routine  performs  the  matrix  multiplication  AT(AAT)“1BF. 


Algorithm 

The  first  step  is  to  obtain  AA^,  then  the  matrix  multiplication 
AW)'1  is  performed.  The  final  two  steps  are  the  matrix  multipli- 
cation AT(AAT)'1B  and  the  scalar  multiplication  AT(AAT)”1BF. 


Input/Output 

None 


Argument  List 
ABETA 
PREPR0 
PHINEW 

00 1 NT 

BBETA 
F 

NJTN 


A real  array  defining  the  A matrix  for  this  load  increment 

A real  array  of  storage  area  for  the  pre-product 

A real  array  defining  the  final  matrix  product  of 
loads  on  the  joints 

An  integer  array  defining  the  numbers  of  joints  that  are 
to  be  loaded  in  this  load  increment 

A real  array  defining  the  B matrix 

A real  scalar  defining  the  total  load  for  this  increment 

An  integer  scalar  defining  the  number  of  joints  to  receive 
load  in  this  increment 


Labeled  Common 
None 

Subroutines  Called 
INVERT 

Error  Detection 
None 
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SUBROUTINE  0UTPUT 


This  routine  prints,  punches  and  writes  (on  tape)  the  output  data. 
Algorithm 

The  output  is  produced  in  two  forms.  The  first  form  is  for  the 
user  to  use  for  checking  the  input  data.  The  constant  data  (mass 
velocity,  duration  of  impact,  average  impact  force,  and  the  load  appll 
cation  unit  vector)  are  printed  first,  then  the  current  load  and  the 
change  In  load  that  occurred  between  the  preceding  and  current  load 
increments  for  each  joint  that  undergoes  a change  in  load  are  printed. 
The  second  form  of  output  is  printed  for  the  benefit  of  the  user  and 
written  on  tape  for  analysis  programs  downstream.  The  format  used  is 
that  for  a F0RMAT  matrix  whose  rows  are  the  degree  of  freedom  numbers 
and  whose  columns  are  the  load  increment  numbers.  The  change  in  load 
between  the  previous  and  current  load  increments  are  divided  along  the 
degrees  of  freedom  and  are  written  accordingly. 

Input/Output 

The  output  is  written  on  files  6,  JTAPE  and  KTAPE. 


Argument  List 

DELPHI 

A real  array  of  the  change  in  joint  loads  from  the  previous 
to  the  current  load  increment 

J0INT 

An  integer  array  of  the  numbers  of  joints  that  undergo 
changes  in  load  from  the  previous  to  the  current  load 
Increment 

PHINEW 

A real  array  of  the  loads  on  the  joints  in  the  current 
Increment 

J0INTN 

An  integer  array  of  the  numbers  of  joints  that  receive 
load  in  the  current  load  increment 

I BETA 

An  integer  scalar  defining  the  number  of  the  load  incre- 
ment 
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A real  scalar  defining  the  total  load  applied  in  the  current 
increment 

UVAPP 

A real  array  defining  a unit  vector  in  the  direction  of  the 
applied  load 

NJTN 

An  integer  scalar  defining  the  number  of  joints  that  received 
load  in  the  current  increment 

NDELPH 

An  integer  scalar  defining  the  number  of  joints  that  undergo 
changes  In  load  between  the  current  and  preceding  load 
increments 

ND0F 

An  integer  scalar  defining  the  total  number  of  degrees  of 
freedom 

AMASS 

A real  scalar  defining  the  mass  of  the  bird 

VEL 

A real  scalar  defining  the  velocity  of  the  bird 

TIME 

A real  scalar  defining  the  duration  of  impact 

FAVG 

A real  scalar  defining  the  average  load 

UVEL 

A real  array  defining  a unit  vector  of  the  velocity  of  the 
bird 

JTAPE 

An  integer  scalar  defining  the  number  of  the  output  file 
that  will  contain  the  F0RMAT  matrix  card  images 

KTAPE 

An  integer  scalar  defining  the  number  of  the  output  file 
• that  corresponds  to  the  F0RMAT  tape  output 

NBETAP 

An  integer  scalar  defining  the  total  number  of  load  increments 
plus  one 

C0LM 

A real  array  used  to  assemble  a column  of  the  output  matrix 

Labeled  Common 

None 

Subroutines 

Called 

SQUEEZ 

■ • 

Error  Detection 

1 

l 1 

1 

None 
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SUBROUTINE  READS 

This  routine  reads  the  footprint  travel  and  load  factor  for  the 
current  load  Increment. 

Algorithm 

The  input  file  is  read  until  a Data  Code  11  card  Is  read.  The  Data 
Code  11  cards  are  read  until  a card  with  a flag  of  6 is  found.  The 
cards  with  a flag  of  6 are  read  until  the  card  with  the  current  incre- 
ment number  is  read  and  the  data  is  stored.  The  subroutine  then  returns 
to  the  main  program. 

Input/Output 

The  input  Is  read  from  file  ITAPE. 

Argument  List 

D8ETA  A real  scalar  defining  the  distance  the  footprint  travels 

from  the  initial  impact  point 

FACTOR  A real  scalar  defining  the  current  position  portion  of 

the  average  impact  load  to  be  applied  for  the  current 
load  increment 

I8ETA  An  integer  scalar  defining  the  current  increment  number 

ITAPE  An  Integer  scalar  defining  the  number  of  the  input  file 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 

If  no  Data  Code  11  cards  are  read  the  message 
'NO  CONSTANTS  (DATA  CODE  11)  ENCOUNTERED  IN  INPUT' 
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is  printed.  If  the  card  with  data  corresponding  to  the  current  load 
increment  is  not  read  the  message 

'INCREMENT  (BETA)  NUMBER  nnn  NOT  FOUND  IN  DATA  CODE  11  DATA' 
is  printed. 


SUBROUTINE  READCN 

This  routine  reads  the  constants  associated  with  the  impact  distri- 
bution. 

Algorithm 

The  input  file  is  read  until  a Data  Code  11  card  is  read.  The  input 
file  is  backspaced  one  record  and  five  cards  are  read  and  their  data 
stored  before  the  subroutine  returns  to  the  main  program. 

Input/Output 

The  input  is  read  from  file  ITAPE. 


Argument  List 
ND0F 

AMASS 
VEL 
ALENG 
UVEL 

UN0RM 

UF00T 

C00RI 

NBETA 
ITAPE 


An  integer  scalar  defining  the  total  number  of  degrees  of 
freedom 

A real  scalar  defining  the  mass  of  the  bird 

A real  scalar  defining  the  velocity  of  the  bird 

A real  scalar  defining  the  length  of  the  bird 

A real  array  defining  a unit  vector  in  direction  of  bird 
motion 

A real  array  defining  a unit  vector  normal  to  the  surface 
at  the  Impact  point 

A real  array  defining  a unit  vector  in  the  direction  of 
impact  footprint  travel 

A real  array  defining  a vector  from  the  origin  to  the 
Impact  point 

An  Integer  scalar  defining  the  number  of  load  increments 
An  Integer  scalar  defining  the  number  of  the  input  file 


Labeled  Conroon 
None 
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Subroutines  Called 


None 

Error  Detection 

If  no  Data  Code  11  cards  are  read  the  message 
'NO  CONSTANTS  (DATA  CODE  11)  ENCOUNTERED  IN  INPUT' 

Is  printed.  If  there  are  not  at  least  five  consecutive  Data  Code  11 
cards,  the  message 
'MISSING  DATA  IN  DATA  CODE  IT 
is  printed. 


SUBROUTINE  READC0 

This  routine  reads  the  joint  coordinate  data. 

Algorithm 

The  input  file  is  read  until  a Data  Code  2 card  is  found.  The  input 
file  is  backspaced  one  record  and  the  coordinate  data  is  read  and  stored 
until  the  data  code  is  no  longer  2 or  until  a joint  number  of  9999  is 
read. 

Input/Output 

The  input  is  read  from  file  ITAPE. 

Argument  List 

C00RJ  A real  array  of  coordinates  of  joints  stored  by  joint  number 

NJT0T  An  integer  scalar  defining  the  largest  joint  number  input 

ITAPE  An  integer  scalar  defining  the  number  of  the  input  file 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 

If  the  end  of  Data  Code  2 data  is  encountered  without  encountering 
joint  number  9999  the  message 
'A  29999  CARD  WAS  NOT  FOUND1 

is  printed  but  execution  continues.  If  no  Data  Code  2 data  is  found  at 
all,  the  message 

'NO  JOINT  COORDINATE  DATA  (DATE  CODE  2)  ENCOUNTERED  IN  INPUT' 
is  printed. 
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SUBROUTINE  REAOJ 

This  routine  reads  the  joint  numbers  that  win  receive  load  In 
the  current  load  Increment. 

Algorithm 

The  input  file  Is  read  until  a Data  Code  12  card  is  encountered.  The 
file  is  backspaced  one  record  and  the  data  is  read,  checking  the  incre- 
ment number.  When  the  current  increment  number  is  read  the  joint  numbers 
are  read  and  stored  for  as  many  cards  as  have  the  current  increment 
number. 

Input/Output 

The  input  is  read  from  file  ITAPE. 

Argument  List 

J0INT  An  integer  array  defining  the  numbers  of  joints  that  are 

to  receive  load  during  the  current  increment 

NJTN  An  integer  scalar  defining  the  number  of  joints  that  are 

contained  in  J0INT 

IBETA  An  Integer  scalar  defining  the  current  load  increment  number 

ITAPE  An  integer  scalar  defining  the  number  of  the  input  file 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 

If  no  Data  Code  12  cards  are  read  the  message 
'NO  LOADED  JOINTS  DATA  (DATA  CODE  12)  ENCOUNTERED  IN  INPUT' 
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is  printed.  If  a card  with  data  corresponding  to  the  current  load  in- 
crement is  not  read  the  message 

'JOINTS  FOR  INCREMENT  (BETA)  NUMBER  nnnn  NOT  FOUND  IN  DATA  CODE  12 
DATA' 

is  printed. 


APPENDIX  D 

LINEAR  INCREMENTAL  ROUTINES  AND 
LABELED  COMMON  BLOCKS 
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APPENDIX  0 

LINEAR  INCREMENTAL  ROUTINES 
AND 

LABELED  COMMON  BLOCKS 


This  appendix  contains  detailed  descriptions  of  all  routines  and  labeled 
common  blocks  in  this  program.  Table  D gives  either  page  number  references 
within  this  document  or  references  to  other  documents  for  documentation 
of  each  routine  or  labeled  common  block.  Some  page  number  references  may 
be  to  preceding  appendices  where  the  documentation  for  a routine  in 
this  program  Is  identical  to  a previously  documented  routine.  This  does 
not  imply  verbatum  source  code  duplication  for  the  routine,  only  functional 
duplication  is  implied. 


The  detailed  description  of  each  routine  is  divided  into  the  following 
subheadings: 


Algorithm 

verbal  flow 

Input/Output 

description 

Arqument  List. 

name,  type. 

Labeled  Conrnon 

list  of  all 

Subroutines  Called 

list  of  all 

Error  Detection 

description 

taken 

chart  of  routine  logic  and  data  flow 
all  external  data  set  input/output 
and  description  of  each  argument 
labeled  common  blocks  declared 
routines  called 

of  tests  made  for  errors  and  action 


The  detailed  description  of  each  labeled  common  block  Is  divided  into 
the  following  subheadings: 

Declaration  verbatum  declaration  of  the  labeled  common  block 

Contents  name  and  description  of  each  variable  appearing 

In  the  declaration 

Usage  list  of  all  -routines --which  contain  declarations 

for  the  labeled  common  block 
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MAIN  PROGRAM  RESPNS 

This  is  the  driver  of  the  Linear  Incremental  Solution  program. 
Aloori thm 

The  driver  functions  of  this  program  consist  of: 

1)  Defining  23  data  sets  used  for  input,  output  and  scratch  storage. 

2)  Delimiting  the  extents  of  4 common  blocks,  the  first  of  which, 
blank  common,  will  be  used  for  working  storage. 

3)  Initializing  via  subroutine  NITIAL. 

4)  Setting  the  stage  for  an  incremental  analysis  by  Invoking  sub- 
routine PREEIG  to  generate  matrices  M,  K and  C which  are  the 
components  of  the  eigenvalue  problem  statement  set  up  and  solved 
via  subroutine  EIGSOL. 

5)  Performing  the  incremental  analysis  through  the  sequence  of  calls 
to  subroutines  LINEAR  and  IMBAL  for  each  time  interval. 

6)  Clocking  the  execution  of  each  module  and  displaying  elapsed 
time  on  output. 

Input/Output . 

None 

Arguments 

None 

Labeled  Common 
NDICES,  TAPES,  LIMITS 

Subroutines  Called 

NITIAL,  PREEIG,  EIGS0L,  LINEAR,  IMBAL,  TSETQ,  TIMEQ 
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Error  Detection 
None 


LABELED  COMMON  CL0CK 

This  common  block  is  used  to  store  timing  information  to  obtain  CPU 
time  required  for  major  modules  within  the  program. 

Declaration 
C0MM0N  /CL0CK/  0RGTIM 

Contents 

0RGTIM  CPU  time  remaining  for  the  run  obtained  by  system  routine 

TIMREM 


Usage 


TIMEQ,  TSETQ 


LABELED  COMMON  LIMITS 


This  common  block  is  used  to  store  problem  size  Information,  problem 
constants,  option  flags,  and  other  program  parameters  used  by  all 
principle  routines. 

Declaration 


C0MM0N  /LIMITS/NG .NK.NELEMS .NTRVLS .BETA .BETBAR , HEAT ,NM , I0RGN , JX 
, K0LX.NF ,M0REK,M0REC ,NG2 ,NG2SQ ,NJTS ,AHAT .DEBCL ,TBM1 

, TAU ,NS,N0WRK,NSUPD ,NFAIL .N0PBPU 


LOGICAL  BETBAR 

,N0BPU 

INTEGER  BETA 

Contents 

NG 

Number  of  modes 

NK 

Number  of  lumped  forces  for  an  element 

NELEMS 

Total  number  of  physical  elements 

NTRVLS 

Number  of  time  Increments 

BETA 

Current  Increment  number 

BETBAR 

Not  used 

HEAT 

Option  flag  for  element  dissipated  damping  energy  con- 
verted to  heat 

NM 

(NG*NG+NG)/2 

I0RGN 

Pointer  to  unused  trailing  partition  of  blank  common 

JX 

Pointer  to  a location  in  labelled  common  NDICES 

K0LX 

Matrix  column  counter 

NF 

Number  of  forces  for  an  element 

M0REK 

Flag  designating  additional  partitions  of  k 

M0REC 

Flag  designating  additional  partitions  of  c 

NG2 

NG+NG 

NG2SQ 

NG2*NG2 
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NJTS 

AHAT 

DEBCL 

TBM1 

TAU 

NS 

NW0RK 

NSUPO 

NFAIL 

N0PBPU 

Usage 

RESPNS, 
PTMASS , 


Number  of  joints 
Not  used 

Total  damping  energy 
Time  Increment  of  previous  interval 
Time  increment  of  current  interval 
Number  of  stresses  for  an  element 
Extent  of  blank  common  region 
Not  used 
Not  used 

Flag  indicating  the  input  6P^jjj  has  been  exhausted 

EIGS0L,  IMBAL,  LINEAR,  NDXSET,  NITIAL,  0UTPUT,  PBARUF,  PREEIG, 
READK,  SIGFBR 


LABELED  COMMON  NDICES 

This  common  block  is  used  to  store  pointers  to  partitions  within 
blank  common  array  A.  All  values  in  this  common  block  are  initialized 
in  routine  NITIAL.  Partitions  for  elements  are  sized  for  cells  which 
have  the  largest  storage  requirements. 

Declaration 


C0MM0N  A(  8000) 

C0MM0N  /NDICES/ I VBDB , IVBB , IVBX , IDPBPU , IPBMUB .IDPPUB , IDBL , IVBL 
, IPBAR.I PBPHU , I KB , I CB , I MBAR , I MBARL , I DEBCL , I C0NST 

, ITIME , ISIGSS 

, IK8L,IZ,ICA,IQ,IVAL,IFTAU,IVEC,IEGSYS 

, iu,lu,iect,ievt,impt,idebo,idfbko,idseb 

, IFK, I FBK , IDEL , IOEOL , I FSFB • I FSFBB . I PBCU 

, IPBKU.ISIGFB, ISIGBH, IEPSIG.IPSL0N, ID.IDK 

, ISKB.ISKBB.ISC8, ISCBB.IPBUF.ISK.lTK.ICIB, IMEL 

Contents 

I VBDB 

• 

modal  accelerations 

IVBB 

modal  velocity 

IVBX 

ve_.| , modal  velocity  of  previous  increment 

IDPBPU 

aPjj,  incremental  modal  force  imbalance 

IPBMU8 

P(M)u»  modal  inertia  force 

IDPPUB 

<SP ( <^ ) u » "incremental  modal  applied  load 

IDBL 

<5a^,  incremental  linear  modal  displacement 

IVBL 

v,.  linear  modal  displacement 

IPBAR 

P,  total  modal  forces 

I PBPHU 

P(^)U»  modal  applied  load 

IKB 

K,  modal  stiffness 

ICB 

C,  modal  damping 

I MBAR 

M,  modal  mass 
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IMBARL 


IDEBCL 

IC0NST 

ITIME 

ISIGSS 

IKBL 

IZ 

ICA 

IQ 

IVAL 

IFTAU 

IVEC 

IEGSYS 

IU 

LU 

IECT 

IEVT 

I MPT 

IDEBO 

IDFBKO 

IOSEB 

IFK 

IFBK 

I DEL 

IDEDL 


Cholesky  decomposition  of  M 

<SE^,  incremental  element  dissipated  damping  energy 
Problem  constants 
Incremental  time  history 
oc  , stress  transform  for  cell  elements 

5<J 

Cholesky  decomposition  of  K 
The  modal  matrix  Z = K"\po 
The  modal  matrix  C * H"^  yo 

fit 

The  modal  matrix  Q = C F(x)  where  Ca  is  C diagonalized 

aD  aD  a 

x,  eigenvalues 

F(t),  a modal  column  matrix  of  eXx 
H,  eigenvectors 
Eigenvalue  problem  work  array 
UQ,  original  joint  coordinates 
Not  used 

ECT,  element  constant  table 

EVT,  element  variable  table 

MPT,  material  property  tables 

6iQ,  incremental  initial  element  deformations 

oF„  , incremental  element  forces  due  to  initial  deformations 
_ o 

6e,  incremental  element  deformations 
The  matrix  FK  B + 6F„  for  an  element 

Vl  Ko 

Fk,  element  forces 

6e^,  incremental  linear  element  displacement 
5eL>  incremental  linear  element  velocity 
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IFSFB 

IFSFBB 

IPBCU 

IPBKU 

ISIGFB 

ISIGBH 

IEPSIG 

IPSL0N 

ID 

IDK 

ISKB 

ISKBB 

ISCB 

ISCBB 

IPBUF 

ISK 

ITK 

ICIB 

IMEL 

Usage 

RESPNS, 
PTMASS , 


Fp,  element  force  transform 
Not  used 

P(C)(j»  modal  damping  forces 
P(K)U>  modal  stiffness  forces 
op,  element  stress  transform 
Not  used 

e , element  strain  transform 

(j 

e,  element  strains 

The  matrix  D = P^  Fp  for  an  element 
The  matrix  DK  = P^p  Fp  k for  an  element 
k,  unassembled  element  stiffness 
Not  used 

c,  unassembled  element  damping 
Not  used 

Pyp,  modal  transform 

s ^ , modal  fictitious  forces 

t^,  modal  fictitious  deformations 

The  matrix  Cl  = Pyp  Fp  c Fp"'"  P^  for  an  element 

m,  element  mass 


EIGS0L,  IMBAL,  LINEAR,  NDXSET,  NITIAL , 0UTPUT,  PBARUF , PREEIG, 
READK,  SIGFBR 


LABELED  COMMON  TAPES 


This  common  block  is  used  to  store  the  FORTRAN  logical  unit  numbers 
of  the  external  files  used  by  the  program. 

Declaration 

COMMON  /TAPES  /N1  ,N2  ,N3  ,N4  ,N5  ,N6  ,N7  ,N8  ,N9  ,N10 
, Nil  ,N12,N13,N14,N15,N16,N17 ,N18,N19,N20 


Contents 

The  values  in  the  common  block  are  initialized  in  routine  NITIAL. 
The  FORTRAN  logical  unit  designations  assigned  are  given  here. 


N1 

1 

N2 

2 

N3 

3 

N4 

4 

N5 

8 

N6 

9 

N7 

10 

N8 

11 

N9 

12 

N10 

13 

Nil 

14 

N12 

15 

N13 

16 

N14 

17 

N15 

18 

N16 

19 

N17 

20 

N18 

21 

N19 

22 

N20 

23 

SUBROUTINE  ABSYM 


This  routine  performs  a matrix  cross-product  wherein  the  post- 
multiplier matrix  is  the  upper  half  of  a symmetric  matrix. 

Algori thm 

The  mode  of  storage  of  the  post -multiplier  matrix  is  b^,  •** 

bln’  b22  '***•  wben  tbe  ^°9‘*ca^  variable  SUM  is  false,  the  array 
accommodating  the  resulting  matrix  is  initialized  as  zero.  Otherwise, 
it  is  simply  incremented  to  yield  the  matrix  sum  C * C + A-B. 

Input/Output 

None 

Argument  List 

C A real  array  accommodating  the  product  matrix 

A • A real  array  accommodating  the  pre-multiplier  matrix 

B A real  array  accommodating  the  post-multiplier  matrix  in 

the  mode  of  storage  b^,  b^.  •••»  bln,  b22  ••• 

M An  integer  scalar  defining  the  order  of  the  pre-multiplier 

.matri  x 

N An  Integer  scalar  defining  the  order  of  the  post-multiplier 

symmetric  matrix 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 


.w 
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SUBROUTINE  ADD 

This  routine  performs  vector  addition;  C ■ A + B. 

Alqori thm 

Vectors  A and  B are  summed  into  C. 

Input/Output 

None 

Argument  List 

C A real  array  accommodating  the  resulting  vector 

A A real  array  accommodating  the  first  Input  vector 

B A real  array  accommodating  the  second  Input  vector 

N An  Integer  scalar  defining  the  order  of  the  vectors 

Labeled  Coimion 
None 

Subroutines  Called 
None 

Error  Detection 


None 


1 


SUBROUTINE  ASYMB 

This  routine  performs  a matrix  cross-product  wherein  the  pre- 
multiplier matrix  is  the  upper  half  of  a symmetric  matrix. 

Algorithm 

The  mode  of  storage  of  the  symmetric  pre-multiplier  matrix  is 

all*  a12  aln*  a22  When  the  1o9’ca^  variable  SUM  Is  false, 

the  array  accommodating  the  resulting  matrix  is  initialized  as  zero. 
Otherwise,  it  is  simply  Incremented  to  yield  the  matrix  sum  C * C + A-B. 

Input/Output 

None 

Argument  List 

C A real  array  accommodating  the  product  matrix 

A ' A real  array  accommodating  the  pre-multiplier  matrix  in 

the  mode  of  storage  a ^ ^ , a ^ ^ , * * * , aln*  a22  * 1 ' 

B A real  array  accommodating  the  post-multiplier  matrix 

M An  integer  scalar  defining  the  order  of  the  symmetric 

pre-multiplier  matrix 

P An  integer  scalar  defining  the  column  order  of  the 

pre-multiplier  matrix 

SUM  A logical  scalar  which  if  true,  C - C + A-B;  otherwise 

C - A-B 

Labeled  Common 
None 

Subroutines  Called 
None 
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Error  Detection 


None 
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SUBROUTINE  CCMULT 

This  routine  computes  the  specified  leading  rows  of  the  product 
of  two  complex  matrices. 

Alqori thm 

When  the  logical  variable  SUM  is  false,  the  array  accommodating 
the  resulting  matrix  is  Initialized  as  zero.  Otherwise,  It  Is 
simply  Incremented  to  yield  the  matrix  product  and  summation  C ■ C + A*B. 

Input/Output 

None 

Argument  List 

C A complex  array  accommodating  the  product  matrix 

A A complex  array  accommodating  the  pre-multiplier  matrix 

B A complex  array  accommodating  the  post-multiplier  matrix 

M An  Integer  scalar  defining  the  row  dimension  of  arrays 

C and  A 

N An  integer  scalar  defining  the  column  dimension  of  array 

A,  and  the  row  dimension  of  array  B 

P An  Integer  scalar  defining  the  column  dimension  of  arrays 

B and  C 

ML  An  Integer  scalar  defining  the  computations  concerning 

ML  rows  of  C 

SUM  A logical  scalar  which  If  true,  C ■ C + A*B;  otherwise 

C » A*B 

Labeled  Common 
None 
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Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  CHGSGN 

This  routine  changes  the  algebraic  sign  of  a vector. 

Algori thm 

The  sign  of  the  vector  Is  reversed  by  being  set  to  minus. 

Input/Output 

None 

Argument  List 

A A real  array  accommodating  the  vector  whose  sign  is  to 

be  reversed 

N An  Integer  scalar  defining  the  order  of  the  vector 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 


Ci 
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SUBROUTINE  CHLSKY 

This  routine  performs  an  In  situ  Cholesky  decomposition,  where 
the  symmetric  matrix  Is  given  in  Its  triangular  half. 

Alqorl thm 

Where  A ■ LlJ,  given  the  positive  definite  matrix  A In  Its 
symmetric  half,  this  routine  transforms  It  to  L.  The  mode  of 
storage  Is  a^^,  a ^ ^ , •••  a^ ^ , ^22  * * * ^2n* 

Input/Output 

None 

Argument  List 

A A real  array  accommodating  the  symmetric  half  of  the 

positive  definite  matrix  on  input,  and  Its  square  root 
decomposition  on  output 

N An  integer  scalar  defining  the  order  of  the  problem 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  COPY 

This  routine  copies  an  array  from  core  to  core. 

Algorithm 

Array  A Is  copied  Into  array  B. 

Input/Output 

None 

Argument  List 

A A real  array  to  be  copied 

B A real  array  Into  which  the  copy  is  made 

N An  integer  scalar  defining  the  order  of  the  arrays 

Labeled  Common 
None 

Subroutined  Called 
None 

Error  Detection 
None 
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SUBROUTINE  CRf-IULT 

This  routine  computes  the  specified  leading  rows  of  a matrix  product 
wherein  the  pre-multiplier  matrix  is  complex. 

Algorithm 

When  the  logical  variable  SUM  is  false,  the  array  accommodating 
the  resulting  matrix  is  initialized  as  zero.  Otherwise,  It  Is  simply 
Incremented *to  yield  the  matrix  product  and  summation  C * C + A*B. 

Input/Output 

None 

Argument  List 

C A real  array  accommodating  the  product  matrix 

A A real  complex  array  accommodating  the  pre-multiplier 

• matrix 

B A real  array  accommodating  the  post-multiplier  matrix 

M An  Integer  scalar  defining  the  row  dimension  of  arrays 

C and  A 

N An  integer  scalar  defining  the  column  dimension  of 

array  A and  the  row  dimension  of  array  B 

P An  Integer  scalar  defining  the  column  dimension  of  arrays 

B and  C 

ML  An  Integer  scalar  defining  the  computations  concerning  ML 

rows  of  C 

SUM  A logical  scalar  which  If  true,  C ■ C + A*B-,  otherwise, 

C » A*B 

Labeled  Common 
None 
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Subroutines  Called 
None 

Error  Detection 
None 


SUBROUTINE  EIGSOL 

This  routine  sets  up,  executes  and  disposes  of  the  eigen  problem. 
Algorithm 

The  upper  quadrants  of  array  A are  filled  with  the  negative  of  sym- 
metric modal  damping  an^  mass  matrices,  C and  M,  reconstructed  in  their 
full  forms.  The  lower  left  quadrant  is  set  to  the  identity.  Subroutine 
SYMSOL  is  then  invoked,  with  the  Cholesky  decomposition  of  modal  stiff- 
ness matrix  K as  argument,  to  arrive  at: 

-K_1C 
1 0 

Subroutine  RGEIG  now  performs  the  complete  eigenvalue  problem 
solution.  The  eigenvalues  are  reciprocated.  In  this  process,  equal 
eigenvalues  corresponding  to  equal  eigenvectors  are  recognized  as  being 
part  of  a singular  system.  An  attempt  to  remedy  this  condition  is  made 
by  scalar  multiplying  matrix  £ with  1.0001  and  going  through  the  complete 
procedure  anew.  Should  this  instability  persist,  the  printing  of  an 
appropriate  statement  is  followed  by  a call  to  subroutine  HALT.  Other- 
wise, the  writing  of  the  matrix  of  eigenvectors  onto  data  set  N8  is 
followed  by  their  inversion  through  subroutine  U0RDAN.  The  inverse  is 
also  output  onto  data  set  N8. 

Input/Output 

To  conserve  core  space,  the  matrix  of  eigenvectors  and  its 
inverse  are  stored  on  data  set  N8. 

Argument  List 

B A real  array  accommodating  the  eigenvalue  problem 

statement 
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X A real  array  accommodating  the  matrix  of  eigenvectors 

M An  Integer  which  defines  the  order  of  the  eigenvalue 

problem 

N An  integer  whose  value  is  M/2 

Labeled  Common 
LIMITS,  NDICES,  TAPES 

Subroutines  Called 

CHLSKY,  C0PY , HALT,  J0ROAN,  RGEIG,  SMULT,  SYMFIL , SYMS0L , 

WRITE,  ZER0 

Error  Detection 

Equal  complex  eigenvectors  with  corresponding  equal  eigenvalues 
are  detected  as  singular.  An  attempt  to  remedy  this  condition  is  made 
by  scalar  multiplying  matrix  Twith  1.0001.  Should  the  unstable  con- 
dition persist,  the  printing  of  an  appropriate  message  is  followed 
by  the  call  to  subroutine  HALT. 
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SUBROUTINE  HALT 

This  routine  performs  termination  processing  as  necessary  in  the 
event  of  a fatal  error. 

Alqori thm 

In  anticipation  of  certain  processing  requirements  before  job 
termination  initiated  by  the  detection  of  a fatal  error,  this  routine 
and  appropriate  calls  were  provided.  Subsequently,  however,  it  was 
determined  that  no  processing  of  this  nature  was  necessary. 

Input/Output 

A job  termination  message  is  output  to  unit  6. 

Argument  List 
None 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 


None 


i 


i 
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SUBROUTINE  IMBAL 


For  each  physical  element  within  each  type  of  element,  this 
tine  computes  the  force,  stress  and  st 
and  writes  them  onto  the  output  data  set. 


routine  computes  the  force,  stress  and  strain  matrices,  F^,  a and  e, 


Alqori  thm 

The  output  matrices  concern  bar  elements,  membrane  elements  and 
cell  elements.  Their  respective  F0R.MAT  matrix  names  are  BARS,  MEMBRN 
and  CELLS.  Each  physical  element  is  represented  by  a column  whose 
contents  are  vectors  a and  e.  These  quantities  are  computed  as 
fol lows: 


- DKT  a 


where 


OK  = Fp-  k 


or 


■sa  r 
7FrK 


e a 
0 


o-r  for  cells 


for  bars  and  membranes 


Inout/Outout’- 

Tape  2 is  the  output  data  set.  For  earh  physical  element,  matrix 
<3j  is  read  from  data  set  N14;  the  matrix  quantity  P^  F^T  is  read  from 
data  set  N7;  6F^Q  is  read  from  M 15;  and  ea  is  read  from  N16. 

Argument  List 
None 

Labeled  Common 
LIMITS,  NOICES,  TAPES 


239 


4- 


Subroutines  Called 


ADO,  ASYMB , MULT,  0UTPUT,  READA,  READM,  SBTRCT,  TMULT , ZER0 

Error  Detection 
None 
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SUBROUTINE  J0RDAN 

This  routine  inverts  in  situ  a complex  matrix  by  pivoting  on  the 
available  row  of  largest  magnitude  within  the  next  available  column. 

Algorithm 

The  method  used  is  Gauss -Jordan.  The  array  K0L  is  used  to  record 
the  order  of  rows  which  have  been  selected  for  pivoting. 

Input/Output 


Argument  List 

A A real  matrix  which  is  transformed  to  its  inverse  prior 

to  exit  from  this  routine 

K0L  An  integer  work  array  of  dimension  2*N.  Prior  to  exit 

from  this  routine,  the  first  M locations  contain  the 
order  in  which  rows  have  been  selected  for  pivoting. 

The  second  N locations  contain  the  values  of  the  pivoting 
elements. 

N An  integer  scalar  defining  the  order  and  dimension  of 

• matrix 


Labeled  Cotmion 
None 


SUBROUTINE  LINEAR 


This  routine  computes  vectors  P,  5A,  v and  v. 


Alqori thm 

Data  set  N8  is  already  positioned  at  the  origin  of  the  matrix  of 
inverse  eigenvectors.  It  is  rewound  as  soon  as  this  matrix  has  been 
read.  The  next  read  then  brings  in  the  matrix  of  eigenvectors  proper. 


&Z  and  7 are  computed  in  the  complex  mode  and  transferred  to  their 
final  blank  common  destinations  in  the  real  mode.  Through  abstraction 
like  CALL  statements  to  utility  routines,  the  matrix  equations  to 
compute  F,  6A,  7,  and  7 are  solved  in  the  following  manner: 


F " P + P(M)U  + S?4)U 
Z ■ -?■'  P 

C3q  * H‘*  j~-l  diagonalized 
F(t)  - eXT 

P * cad  f(t> 

* • Hv  »o  P 

!-]■ HQ 

<5A  6A  -l 


Input/Output 


N8. 


The  matrix  of  eigenvectors  and  its  Inverse  are 
The  Incremental  applied  load  matrix  fiF^  is 


read  from  data  set 
from  data  set  N18. 


Argument  List 


"*"*  «*? 1 ^Cttcua 


None 

Labeled  Common 
LIMITS,  NOICES,  TAPES 

Subroutines  Called 

ADO,  CCMULT , CHGSGN , C0PY,  CRMULT , EUTL9 , PRIfITR,  REAOA,  SYMS0L, 
VOMULT,  XP0NNT,  ZER0 


Error  Detection 


SUBROUTINE  MATIN 

This  routine  routes  F0RMAT  Program  input  matrices  and  arrays  from 
tape  20  to  the  Intended,  or  interim,  data  sets. 

Algori thm 

Reading  over  the  data  set  header  positions  It  at  the  origin  of 
its  first  matrix. 

The  following  takes  place  with  each  item  sandwiched  between  a 
matrix  header  and  trailer.  The  data  set  designation,  onto  which  the 
next  matrix  in  sequence  Is  to  be  written,  Is  taken  from  the  list  NT 
and  rewound.  The  matrix  header  is  read  and  Ignored.  Each  record 
thereafter  is  transcribed.  Additionally,  the  third  matrix  Is  also 
written  on  data  set  14.  This  process  continues  as  long  as  the  first 
word  of  the  records  thus  processed  is  a positive  integer.  Except  in 
the  case  of  matrix  ^UF*  the  output  data  set  is  then  rewound. 


Input/Output 

The  list  of  throughput  matrices  and  the  data  set  onto  which  they 
are  output  follows: 


Matrix  Name 

Data  Set  Number 

Description 

14 

Modal  element  force  transform 

MPT 

3 

Material  property  table 

Uo 

8,  14 

Original  joint  coordinates 

ECT 

15 

Element  constant  table 

"El 

13 

Element  mass  matrix 

F 

11 

Element  stiffness  matrix 

c 

17 

Element  damping  matrix 

4 

Element  force  transform 

< 
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Matrix  Name 

Data  Set  Number 

Descriotion 

°T 

15 

Element  stress  transform 

C<3 

22 

Element  strain  transform 

% 

10 

Initial  thermal  element  defor- 
mati ons 

EVT 

9 

Element  variable  table 

Argument  List 

A A real  work  array 

NUM  An  Integer  scalar  used  as  a dimensioning  variable 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Oetection 
None 
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SUBROUTINE  MBAR 

This  routine  fetches  the  upper  half  of  the  next  uncoupled  partition 
from  a tape  resident  symmetric  quasi -diagonal  matrix. 

Algori thm 

The  end  product  of  this  routine  consists  of  a triangular  matrix  of 
order  NF  in  expanded  format  wherein  the  rows  begin  from  their  diagonal 
elements.  As  each  column  (K0LX  + 1)  through  (K0LX  + NF)  is  read  in  the 
compressed  format,  its  elements  preceding  the  diagonal  are  discarded. 
The  row  designations  of  the  elements  retained  are  reduced  by  the 
quantity  K0LX  - NF*(I-1),  where  I represents  the  sequence  of  these 
columns  from  1 through  NF.  One  call  to  subroutine  EUTL9  expands  this 
triangular  matrix  in  its  desired  form. 

Input/Output 

None 

Argument  List 

NF  An  integer  scalar  defining  the  number  of  rows  and  columns 

in  desired  matrix  partition 

K0LX  An  integer  scalar  defining  the  designation  of  the  last 

column  read  on  previous  entry  into  this  routine 

A A real  storage  array 

NT  An  integer  scalar  defining  the  designation  of  the  data 

set  containing  the  matrix 

Labeled  Comrwn 
None 

Subroutines  Called 
EUTL9 , REAOA , ZER0 


34C 
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SUBROUTINE  MULT 

This  routine  performs  a matrix  product. 


Alqori thm 


The  matrix  product  A*B  is  added  to  matrix  C.  Matrix  C Is 
initialized  to  zero  only  when  the  logical  variable  SUM  is  false. 

Input/Output 

None 

Araument  List 

C 

A real  array  accommodating  the  product  matrix 

A 

A real  array  accommodating  the  pre-multiplier  matrix 

B 

A real  array  accommodating  the  post-multiplier  matrix 

M 

An  integer  scalar  defining  the  row  dimension  of  matrices 
C and  A 

N 

An  integer  scalar  defining  the  row  dimension  of  matrix  B 
and  the  column  dimension  of  matrix  A 

P 

An  Integer  scalar  defining  the  row  dimension  of  matrices 
C and  B 

SUM 

A logical  scalar  which  If  false,  array  C is  Initialized 
as  zero 

Labeled  Common 

None 

Subroutines 

Called 

None 

• 

Error  Detection 

None 
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UNCTION  NOXSET 


This  routine  defines  the  elements  of  a vector  used  to  segment 
the  working  core. 

Alqori  thm 

The  variable  I0RGN  contains  the  relative  location  from  which  the 
work  array  is  available  for  segmentation.  The  following  takes  place 
for  each  of  the  N apportionments:  1)  the  value  of  JX,  the  indexing 
pointer  used  with  vector  NCEX,  is  incremented;  2)  I2RG.N  is  stored  into 
NGEX(JX);  3)  I0RGN  is  increased  by  INC,  the  extent  of  core  being 
allocated  each  oriain. 


Inout/Qutout 

None 


Argument  List 
INC 

N 


An  integer  scalar  defining  the  extent  of  core  to  be 
allocated  with  each  origin  NOEX(I) 

Number  of  origins  to  be  defined 


Labeled  Common 
LIMITS,  NO  ICES 


Subroutines  Called 
None 


Er-or  jetection 
None 
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SUBROUTINE  NITIAL 

This  is  the  intializlng  routine. 

Algorithm 

The  variables  N1  through  N20,  which  are  contained  within  labeled 
common  TAPES,  are  sequencially  set  to  represent  tapes  1 through  4,  and 
8 through  23. 

The  input  matrices  are  read  in  their  F0RMAT  generated  mode  and 
written  onto  their  interim,  or  intended,  data  sets  via  subroutine 
MATIN.  The  following  delimiting  parameters  are  read  from  the  first 
input  card. 


Item 

Type 

Description 

BETA 

INTEGER 

Starting  time 

NELEMS 

INTEGER 

Number  of  structural  elements 

NTRVLS 

INTEGER 

Number  of  time  intervals 

NG 

INTEGER 

Number  of  modes 

HEAT 

LOGICAL 

"TRUE"  indicates  presence  of 
thermal  conditions 

NJTS 

INTEGER 

Number  of  structural  joints 

NW0RK 

INTEGER 

Number  of  words  in  blank  common 

Blank  corrmon  array  A is  apportioned  to  the  various  matrices  and 
arrays  through  the  designation  of  their  respective  origins  by  the 
index  from  labeled  common  NOICES. 

The  NTRVLS  values  concerning  the  time  array  are  read  into  the 
space  beginning  with  A(ITIME)  and  checked  for  their  being  in  ascending 
order.  Execution  is  halted  with  an  appropriate  statement  when  this 
check  fails. 
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The  constant  matrix  a3(j  for  call  elements  is  generated  and  stored 
at  A(ISIGSS) . 

Overlay  within  array  A is  effected  by  assigning  I :<3L  and  IU  the 
same  value.  The  first  of  these  subscripts  represent  the  origin  of 
space  used  by  subroutine  EI3S31  only;  the  second  is  the  leading  sub- 
script of  non-conversant  space  used  by  other  modules. 

Subroutine  PEAOK  is  invoked  to  .merge  selected  matrices  residing 
on  interim  data  sets.  The  arrays  which  are  to  accommodate  the  follow- 
ing  vectors  are  initialized  with  zeroes:  7,  v^, 

^CC)U*  and  3tCl ‘ 

Inout/Jutaut 

All  card  input  takas  place  in  this  routine.  In  addition,  the 
following  input  .matrices  are  written  onto  the  ocst-processing  data 
set,  tape  2:  the  array  of  constants  under  its  input  FORMAT  program 
matrix  name;  the  array  of  time  intervals  under  the  matrix  name  TIME; 
the  array  of  joint  coordinates  under  the  matrix  name  UZEP.2 ; vectors 

and  under  their  input  names. 

Arcuirent  List 
None 


labeled  Cotrm-.cn 
LIMITS,  NOICES,  TAPES 


Sue  routines  Called 
ASYXS,  ChGSG." , MATIN, 


. i O y — - — * 3c‘*l  — -n  r--—  • •-*•- 

iLa.w.,  i.j.-sH,  iu>n., 


'.ere 


SUBROUTINE  OUTPUT 

This  routine  stores  output  onto  the  output  data  set  In  the  mode 
of  the  F0RMAT  program. 


Algorithm 

Vectors  a,  oa-,  7,  v,  5P 
as  a single  column  F0RMAT  matrix  with  the  name  RESPflS. 


Uf  and  are  written  onto  data  set  2 


Input/Output 

Matrix  RESPNS  is  output  to  data  set  2. 

Argument  List 
None 


Labeled  Common 
LIMITS,  NOICES,  TAPES 

Subroutines  Called 
WRITE 

Error  Detection 
None 
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SUBROUTINE  PSAAUF 

This  routine  reads  a partition  of  matrix  Ft  and  the  corresponding 
partition  of  matrix  P^-. 

Alqori thm 

-ata  set  M3  contains  matrix  in  the  form  of  one  partition  per 

record.  Reading  one  such  record  provides  the  information  necassarv 

to  determine  the  columns  bounding  the  desired  partition  of  ?!,_ 

UF  ‘ 

Inout/Outout 

Matrix  rj  is  read  from  data  set  N13.  Matrix  Tlf  is  read  from 
data  set  Nil . 

Argument  List 
None 

Labeled  Common 
LIMITS,  ‘(DICES , TAPES 

Subroutine  Called 
REA DA,  SUTL3 

Error  Detection 
None 

I 
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SUBROUT  I HE  PREEIG 


This  routine  generates  matrices  ff,  K,  C and  5?^. 

Algorithm 

For  each  element,  the  matrix  operations  are  performed  through 
abstraction  like  CALL  statements  to  utility  routines.  Having  initializ- 
ed matrices  K,  C,  M,  F,  and 
formed  are  as  follows: 

5Fko  ' 

D * 

F» 

DK  = 

K = 

C a 
M = 

If  point  mass  elements  exist, 
matrix,  M,  is  computed  and  added  by  a single  call  to  subroutine  PTHASS. 

Input/Output 

For  each  physical  element,  a partition  of  the  matrices  k,  c and 
<S-^  is  read  in  that  sequence  from  data  set  Nl.  Similar  partitions  of 

matrices  V’  FF’  and  m are  read  from  data  sets  Nil,  Nl 3 and  N10, 
respectively.  The  contribution  of  each  physical  element  to  matrix 
DK  is  written  onto  data  set  N7  and,  similarly,  the  contribution  to 
5Fk0  Is  written  onto  N15. 


as  zero,  the  matrix  operations  per- 

-F  6eT 

^UF  FF 
P + D 6Fkq 

DF 

K + DK  DT 
C + Dc  DT 
M + Pup  m FufT 

their  contribution  to  the  modal  mass 
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Argument  Ust 

None 

Labeled  Ccirron 
LIMITS,  NO ICES , TAPES 

Subroutine  Called 

A3SYM,  A00,  ASYMS,  CHGSGN , M8AR,  MULT,  P3ARUF,  PTMASS,  REACA , SYMA8T , 
WRIT EM,  ZER3 

Error  Cetaction 
None 
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SUBROUTINE  PRINTR 


This  routine  prints  a core  resident  matrix. 

Algorithm 

Groups  of  not  more  than  8 columns  across  each  page  are  v/ritten 
for  partitions  of  not  more  than  55  rows.  Each  page  is  headed  with 
the  title.  The  column  designations  appear  under  the  title.  The  row 
designations  precede  each  row.  Only  the  most  significant  aspect  of 
double  precision  matrices  is  written.  Two  calls  to  this  routine  are 
required  to  print  a complex  matrix. 

Input/Output 

None 

Argument  List 

A A real  array  accommodating  the  matrix  to  be  printed 

K An  integer  scalar  used  as  a dimensioning  variable.  K * 1 

for  real  and  single  precision  arrays.  K = 2 for  compressed 
or  double  precision  arrays.  K s 4 for  double  precision 
complex  arrays. 

M An  Integer  scalar  defining  the  row  dimension 

N An  Integer  scalar  defining  the  column  dimension 

TITLE  An  alphanumeric  scalar  for  header  data 

Labeled  Common 
None 

Subroutines  Called 
None 
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SUBROUTINE  PTMASS 

This  routine  concludes  the  computations  of  M with  the  contributions 
of  the  point-mass  elements. 

Algorithm 

The  computations  concern  the  triple  product  ^UF  MEL  V involving 
point  mass  elements.  consists  of  one  element.  The  columns  of 
these  matrices  are  read  and  the  computations  are  exercised  upon 
matching  the  column  designations. 

Input/Output 

Matrix  Mel  is  read  from  data  set  N10.  Matrix  P*^  is  read  from 
data  set  Nil. 

Argument  List 
None 

Labeled  Common 
LIMITS,  NDICES , TAPES 

Subroutines  Called 
READA,  EUTL9 , ABSYM,  SYMABT 

Error  Detection 
None 
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SUBROUTINE  REA OK 


This  routine  transcribes  "3 RMAT  program  generated  .matrices  from 
interim  data  sets  to  their  intended  data  sets. 


Alqcri thm 

The  symmetric  quasi -diagonal  matrices  ST,  e and  c are  read  in  their 
full  forms.  They  are  retained  only  in  their  symmetric  halves  prior 
to  being  written  as  single  compressed  records. 

Matrix  5e-  is  simply  copied  from  its  input  to  its  output  tape. 

The  quasi -diagonal  .matrix  Fj  is  output  in  records  of  sub-matrix 
parti  tions. 

Inout/Outout 

Matrices  IT,  e , F,  deT,  and  "-=•  are  respectively  read  from  data 

J I r 

sets  N8,  NV9,  N14,  M10,  and  M4 , matrices  and  Fx  are  written  onto 
data  sets  ill 6 and  NT 3.  Matrices  F,  c and  ie-  are  written  onto  data 
set  Ml  in  the  sequence  F^ , c ^ , 5?1 , F2,  c?,  ie-^,  , etc. 

Arcument  List 
None 

Labeled  Common 
LIMITS,  NO ICES,  TAPES 

Subroutines  Called 
EUTL9 , M3AR , REACA,  WRITE 

E-~cr  letscticn 
None 
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SUBROUTINE  READM 

This  routine  reads  a matrix  which  was  written  on  a scratch  data  set 
via  subroutine  WRITEM, 

Algorithm 

The  matrix  is  read  via  subroutine  REAOA.  Should  it  be  compressed, 
subroutine  EUTL9  expands  it. 

Input/Output 

The  matrix  is  read  from  data  set  NT. 

Argument  List 

M A dummy  argument 

N A dummy  argument 

A A real  array  into  which  the  matrix  is  read 

(IT  An  integer  scalar  defining  the  input  data  set 

Labeled  Common 
None 

Subroutine  Called 
None 

Error  Detection 
None 
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SUBROUTINE  SBTRCT 

This  routine  computes  the  arithmetic  difference  between  two 
vectors . 

Algorithm 

The  algebraic  difference  between  vectors  A and  B Is  stored  In 
vector  C. 

Input/Output 

None 

Argument  List 

C A real  array  for  the  resulting  vector 

A A real  array  for  the  vector  being  subtracted 

B A real  array  for  the  subtracting  vector 

N An  integer  scalar  defining  the  order  of  vectors 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 


None 





SUBROUTINE  SIGFBR 

This  routine  partitions  a quasi -diagonal  matrix  and  outputs  Its 
partitions  in  single  compressed  records. 

Alqori thm 

The  columns  of  each  partition  are  read  and  stored  consecutively  In 
their  compressed  format.  In  the  process,  the  row  designations  are 
replaced  by  the  location  of  the  elements  relative  to  the  current  sub- 
matrix. A single  call  to  subroutine  EUTL9  expands  the  partition  which 
is  then  output  by  subroutine  WRITEM. 

Input/Output 

The  matrix  Is  read  from  data  set  N14  and  written  onto  data  set 

N12. 

Argument  List 
None 

Labeled  Common 
TAPES,  LIMITS,  NDICES 

Subroutines  Called 
EUTL9 , READA,  WRITEM 

Error  Detection 
None 
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SUBROUTINE  SMULT 

This  routine  scales  a matrix. 

Algorithm 

Each  element  of  array  A is  multiplied  by  the  scalar  S,  and  the 
product  is  stored  in  array  C. 

Input/Output 

None 

Argument  List 

C A real  array  accommodating  the  output  matrix 

S A real  scalar  coefficient 

A A real  array  accommodating  the  matrix  to  be  scaled 

M • An  integer  scalar  defining  the  row  dimension 

fl  An  integer  scalar  defining  the  column  dimension 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  SYMABT 

This  routine  computes  the  triangular  half  of  a symmetric  matrix 
where  the  post-multiplier  is  transposed. 

Alqori thm 

The  mode  of  storage  of  the  product  matrix  Is  C22,”^2n, 

etc.  When  the  logical  variable  SUM  is  false,  the  array  accommodating 
the  resulting  matrix  is  initialized  as  zero. 

Input/Output 

None 

Argument  List 

C A real  array  for  the  triangular  product  matrix 

A A real  array  for  the  pre-multiplier  matrix 

B A real  array  for  the  transposed  post-multiplier  matrix 

M An  Integer  scalar  defining  the  row  dimension  of  all  matrices 

N An  integer  scalar  defining  the  column  dimension  of  A 

•and  B matrices 

SUM  A logical  scalar  when  false,  causes  the  resulting  matrix 

to  be  initialized  as  zero 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  SYMFIL 

This  routine  stores  a symmetric  half  matrix  Into  the  partition  of 
an  array  while  reversing  the  sign. 

Algorithm 

The  mode  of  storage  of  the  symmetric  half-matrix  is  a^ , •••  a^n> 
a22  ••••  When  K ■ 1,  the  receiving  matrix  Is  real.  When  K * 2,  it 
is  complex.  Note  that  in  this  case,  the  Imaginary  components  are  left 
untouched. 

Input/Output 

None 

Argument  List 

A A real  array  for  the  symmetric  half-matrix 

B A real  or  complex  array  for  the  output  matrix 

K An  integer  scalar  where  K a 1 for  real  B array,  K = 2 for 

complex  B array 

M An  Integer  scalar  defining  the  row  dimension  of  B array 

N An  Integer  scalar  defining  the  order  of  symmetric  matrix 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  SYMS0L 

Given  matrices  L and  B in  the  expression  LlJx  = B;  this  routine 
transforms  B into  X. 

Algorithm 

The  mode  of  storage  for  matrix  L is  1^,  •••,  lnl,  T22* • - . X is 
computed  by  way  of  Y where  LY  a B.  Then,  L^X  * Y.  The  array  storing 
matrices  B and  X may  be  real  or  complex.  When  the  integer  K is  1,  the 
array  is  real;  when  K is  2,  the  array  is  complex. 

Input/Output 

None 

Argument  List 

A A real  array  accommodating  matrix  L in  the  mode  of 

. storage  l^***^^,  122'" 

B A real  or  complex  array  accommodating  matrices  B,  Y and  X 

K An  integer  scalar  where  array  B is  real  when  K = 1 , and 

complex  when  K = 2 

M An  integer  scalar  defining  the  row  dimension  of  array  B 

N An  integer  scalar  defining  the  order  of  equation 

P An  integer  scalar  defining  the  number  of  columns  in 

matrices  B,  Y and  X 

Labeled  Common 
None 

Subroutines  Called 
None 
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Error  Detection 


None 
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SUBROUTINE  TMULT 

This  routine  performs  a matrix  cross  product  wherein  the  pre- 
multiplier matrix  is  transposed. 

Algorithm 

The  matrix  product  transpose  A^B  is  added  to  matrix  C.  Matrix  C 
is  initialized  to  zero  only  when  the  logical  variable  SUM  is  false. 

Input/Output 

None 

Argument  List 

C A real  array  accommodating  the  product  matrix 

A A real  array  accommodating  the  pre-multiplier  matrix 

B A real  array  accommodating  the  post-multiplier  matrix 

M An  integer  scalar  defining  the  row  dimension  of  matrix  C 

and  column  dimension  of  matrix  A 

An  integer  row  dimension  of  matrices  A and  B 

N An  integer  scalar  defining  the  row  dimension  of  matrix  C 

and  column  dimension  of  matrix  A 

An  integer  row  dimension  of  matrices  A and  B 

P An  integer  column  dimension  of  matrices  B and  C 

SUM  A logical  scalar  when  false  causes  array  C to  be 

initialized  as  zero 


Labeled  Common 
None 
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Subroutines  Called 
None 

Error  Detection 
None 


SUBROUTINE  VDMUIT 

This  routine  performs  the  element  by  element  product  of  two  comp! 
vectors. 

Algorithm 

The  element  by  element  product  of  complex  vectors  A and  B is 
stored  in  vector  C. 

Input/Output 

None 

Argument  List 

C A complex  array  for  the  output  vector  C 

A A complex  array  for  the  input  vector  A 

B A complex  array  for  the  input  vector  B 

N An  integer  scalar  defining  the  order  of  the  vectors 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 


SUBROUTINE  WRITEM 


This  routine  writes  a one-record  matrix,  compressed  (as  required). 
Alqori thm 

Following  an  attempt  to  compress  the  matrix  via  subroutine  SQUEEZ, 
it  is  written  onto  the  output  data  set  NT. 

Input/Output 

The  matrix  Is  written  onto  the  output  data  set. 

Argument  List 

M An  integer  scalar  defining  the  matrix  row  dimension 

N An  Integer  scalar  defining  the  matrix  column  dimension 

A A real  array  for  the  input  matrix 

NT  An  integer  scalar  defining  the  output  data  set 

Labeled  Common 
None 

Subroutines  Called 
SQUEEZ,  WRITE 

Error  Detection 
None 
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SUBROUTINE  XP0NNT 

Given  complex  vector  D and  vector  T,  this  routine  finds  vector 

a D*T 
A » e . 

Alqori thm 

All  computations  take  place  in  the  real  mode  as  vectors  A and  D 
are  doubly  dimensioned  arrays. 

Input/Output 


Argument  List 


A real  array  accormiodating  the  output  vector 

A real  array  for  the  complex  input  vector  treated  in  the 
real  mode 

A real  array  for  the  input  vector 

An  integer  scalar  defining  the  order  of  vectors 


Labeled  Common 


Subroutines  Called 


Error  Detection 
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SUBROUTINE  ZER0 

This  routine  zeros  an  array. 

Alqori thm 

The  specified  extent  of  array  A is  set  to  zero. 

Input/Output 

None 

Argument  List 

A A real  array  to  be  set  to  zero 

N An  integer  scalar  defining  the  extent  of  A to  be  set 

to  zero 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 
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APPENDIX  E 

NONLINEAR  INCREMENTAL  ROUTINES 
AND 

LABELED  COMMON  BLOCKS 

This  appendix  contains  detailed  descriptions  of  all  routines  and 
labeled  common  blocks  in  this  program.  Table  E gives  either  page  number 
references  within  this  document  or  references  to  other  documents  for 
documentation  of  each  routine  or  labeled  common  block.  Some  page  number 
references  may  be  to  preceding  appendices  where  the  documentation  for 
a routine  in  this  program  is  identical  to  a previously  documented  routine. 
This  does  not  imply  verbatum  source  code  duplication  for  the  routine,  only 
functional  duplication  is  implied. 


The  detailed  description  of  each  routine  is  divided  into  the  following 
subheadings: 


Algorithm 
Input/Output 
Argument  List 
Labeled  Common 
Subroutines  Called 


Error  Detection 


verbal  flow  chart  of  routine  logic  and  data  flow 

description  of  all  external  data  set  input/output 

name,  type,  and  description  of  each  argument 

list  of  all  labeled  common  blocks  declared 

list  of  all  routines  called 

description  of  tests  made  for  errors  and  action 
taken 


The  detailed  description  of  each  labeled  common  block  is  divided  into 
the  following  subheadings: 


Declaration 


Contents 


Usaoe 


verbatum  declaration  of  the  labeled  corrcnon  block 

name  and  description  of  each  variable  appearing 
in  the  declaration 

list  of  all  routines  which  contain  declarations 
for  the  label-ed  common  block 


376 


1 


TABLE  E.  INDEX  TO  NONLINEAR  INCREMENTAL  ROUTINES  AND 
LABELED  COMMON  BLOCKS 
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MAIN  PROGRAM  RESPNS 380 
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MAIN  PR0GRAM  RESPNS 

This  is  the  executive  routine  for  the  Nonlinear  Incremental  Solution 
program. 

Algorithm 

This  routine  controls  the  incremental  solution  process  including  the 
iterations  necessary  to  determine  the  modal  response.  Routine  NITIAL  is 
called  first  to  establish  partitions  of  array  A in  blank  common  as  required 
by  problem  size.  Routine  0UTPUT  is  then  called  to  transcribe  certain  mast- 
er input  data  to  the  master  output  file. 

A loop  is  then  entered  the  index  of  which  is  the  number  of  increments 
defined  in  the  card  input  data.  Routines  PREEIG,  EIGS0L , FIFDEF,  PREBAL, 
and  IMBAL  are  the  executive  routines  for  the  modules  which  make  up  the  in- 
cremental solution.  These  modules  are  called  in  sequence  for  each  incre- 
ment within  which  routines  EIGS0L  and  FIFDEF  are  iterated  through  5 times. 
The  variable  controlling  the  number  of  iterations  is  NFFMAX  which  is  initial 
ized  as  5. 

The  basic  functions  of  each  routine  called  during  the  incremental  sol- 
ution are 

1)  PREEIG  - compute  M in  the  first  increment  and  compute  K,  C,  and  P 

in  every  increment 

2)  EIGS0L  - assemble  the  A matrix,  solve  for  all  eigenvalues  and. eigen- 

vectors, and  compute  the  modal  response,  SA,  v,  and  ? 

3)  FIFDEF  - temporarily  update  geomstry  and  compute  the  fictitious 

force  and  deformation  effects,  sk  and  t^ 

4)  PREBAL  - permanently  update  geometry  and  regenerate  Fp  and  ap 

5)  IMBAL  - compute  element  forces,  stresses,  and  strains  from  the 

modal  response  and  new  geometry 

Array  DBLL  is  used  to  store  the  cumulative  modal  displacements,  a,  and 
is  of  length  NG,  the  number  of  modes.  This  array  is  currently  declared  in 
a DIMENSION  statement  and  is  of  length  75.  A partition  of  length  NG  for 
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storing  a should  be  allocated  in  the  blank  common  array  A by  routine  NITIAL 
rather  than  using  a dimensioned  array. 

Array  A (IVBX)  is  used  to  store  the  modal  loads,  P,  which  are  acting 
at  the  beginning  of  the  increment.  Arrays  A(ISK)  and  A(ITK)  are  used  to 
store  the  equivalent  modal  loads  due  to  fictitious  force  and  deformation 
effects,  respectively,  which  at  computed  by  FIFDEF  for  each  iteration. 

Input/Output 

None 

Arguments 

None 

Labeled  Common 
NDICES,  LIMITS,  TAPES 

Subroutines  Called 

C0PY , EIGSOL,  FIFDEF,  IMBAL,  NITIAL,  0UTPUT,  PREBAL,  PREEIG,  ZER0 

Error  Detection 
None 
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LABELED  COMMON  CRRAYS 


This  common  block  is  used  to  store  intermediate  data  during  the  gener 
ation  of  fictitious  forces  and  deformations. 

Declaration 


C0MM0N  /CRRAYS/  C(225) 

DIMENSI0N  RNK(8,3) , RRK(30,2) 

EQUIVALENCE  (C(136) ,RNK(1 ,1 )) , (C(160) ,RRK(1 ,1 ) ) 


Contents 


C An  array  used  to  store  intermediate  data  including  the  element 

coefficients  n^  and  r^ 

Usage 

AVRAGE,  CHK0UT,  FIFDEF,  NKRK 


LABELED  COMMON  FICNDX 


This  common  block  is  used  to  store  the  first  locations  of  partitions  in 
blank  common  array  A for  use  during  the  generation  of  fictitious  forces  and 
deformations. 


Declaration 

COMMON  /FICNDEX/  IRSR.IGFBl .IGFB.ID0B1 , I FBF , I REC , I RK , INK , 
IDEBBL.IC0L , IRC0L , IFBFS, ITHK, 

JNTS ,LAST2 , LAST3 , ICEDG , I CUNY 


Contents 

IRSR 

IGFB1 

IGFB 

I00B1 

I FBF 

I REC 

IRK 

INK 

IDEBBL 

IC0L 

IRC0L 

IFBFS 

ITHK 

JNTS 

LAST2 

LAST  3 

ICEDG 


rr',  reordering  transform  for  membrane  and  cell  elements 
Gf  , element  geometry  at  beginning  of  Increment 

Vl 

Gf  , element  geometry  at  end  of  interation 
8 

D.  , warp  offset  at  tfl  , 

_Vl  6-1 

F^,  element  forces 

ECT,  element  constant  table 

rk>  fictitious  element  deformations 

n^,  fictitious  element  forces 

<Se,  fictitious  element  displacements 

Number  of  columns  in  Fj* 

Number  of  columns  in  r / 

r 

Not  used 

Cell  element  differential  thickness  vectors 

Number  of  joints  for  the  element 

Last  location  of  IGFB1 

Last  location  of  ID0B1 

Not  used 


ICUNV 


Not  used 


Usage 

CHK0UT,  EDGUNV , FIFDEF,  GE0M,  NKRK 
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LABELED  COMMON  GE0MS 

This  common  block  is  used  to  store  element  geometry  during  the  gener- 
ation of  fictitious  forces  and  deformations. 

Declaration 

C0MM0N  /GE0MS  / EDGV(4,8) ,UNV(3,6) ,THICK(4,3) ,C00RD(8,3) 

Contents 


EDGV  An  array  of  edge  vectors  components  and  magnitudes 

UNV  An  array  of  unit  edge  vectors 

THICK  An  array  of  thickness  vectors  for  cell  elements 

C00RD  An  array  for  temporary  storage  of  joint  coordinates 


EDGUNV , FIFDEF,  GE0M,  LPBFIC,  LPCFIC,  LPMFIC 

I 


id 


LABELED  COMMON  LIMITS 

This  common  block  Is  used  to  store  problem  size  information,  problem 
constants,  option  flags,  and  other  program  parameters  used  by  all 
principle  routines. 

Declaration 

C0MM0N  /LIMITS/NG, NK.NELEMS.NTRVLS, BETA, BETBAR, HEAT, NM.I0RGN.JX 
, K0LX,NF,M0REK,M0REC,NG2,NG2SQ,NJTS,AHAT,DEBCL,TBM1 

, TAU,NS,N0WRK,NSUPD,NFAIL 

, X4 ( 10) 

LOGICAL  BETBAR 
INTEGER  BETA 


Contents 


NELEMS 

NTRVLS 


3ETBAR 


I0RGN 


M0REK 

M0REC 


Number  of  modes 

Number  of  lumped  forces  for  an  element 

Total  number  of  physical  elements 

Number  of  time  increments 

Current  increment  number 

Material  nonlinearity  iteration  flag 

Option  flag  for  element  dissipated  damping  energy  con- 
verted to  heat 

(NG*NG+NG)/2 

Pointer  to  unused  trailing  partition  of  blank  common 

Pointer  to  a location  in  labelled  common  NDICES 

Matrix  column  counter 

Number  of  forces  for  an  element 

Flag  designating  additional  partitions  of  k 

Flag  designating  additional  partitions  of  c 

NG+NG 
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NG2SQ 

NG2*NG2 

NJTS 

Number  of  joints 

AHAT 

DEBCL 

Geometric  nonlinearity  correction  factor 
Total  damping  energy 

TBM1 

Time  increment  of  previous  interval 

TAU 

Time  increment  of  current  Interval 

NS 

Number  of  stresses  for  an  element 

NW0RK 

Extent  of  blank  common  region 

NSUPD 

Element  stiffness  update  flag 

NFAIL 

Element  failure  flag 

X4 

Pad  for  expansion  of  LIMITS 

Usage 

RESPNS,  AVRAGE,  CHK0UT , CHKPNT , EIGS01,  FIFOEF,  F0RMAT,  IMBAl,  NDXSET, 
NITIAL,  NKRK,  0UTPUT,  PBARUF,  P0LS0L,  PREBAL,  PREBGM,  PREBGU,  PREBLL, 
PREBST,  PREEIG,  PTMASS,  READK 


LABELED  COMMON  LPEM 


This  common  block  is  used  to  store  element  geometry  and  other  data 
for  use  by  the  k,  c,  Fp,  and  oj:  matrix  regeneration  routines  in  the  PREBAL 
module.  The  configuration  of  the  trailing  portion  of  this  common  block  is 
different  for  each  of  the  element  types;  bars,  membranes,  and  cells. 

Declaration  (Routine  PREBAL) 

C0MM0N  /LPEM/  NUMECT , IUPDAT , I FAILD, IPARLL , ITMP1 , ITMP2 , I HOLD 
, NFK , NSK , NKS YM , NSSYM , JM ( 30 ) , XXX ( 600 ) 

L0GICAL  IUPDAT, IFAILD, IPARLL 


Declaration  (Bar  Elements) 

C0MM0N  /LPEM/  NUMECT, IUPDAT, IFAILD, IPARLL, ITMP1 ,ITMP2,IH0LD 
, NFK, NSK, NKSYM, NSSYM, JBN(30) ,PQ(4) ,AB(4) 

EQUIVALENCE  (JBN(1 ) ,JP) , (JBN(2) ,JQ) , (JBN(3) .AREA) 

LOGICAL  IUPDAT, I FAILD, IPARLL 


Declaration  (Membrane  Elements) 

C0MM0N  /LPEM/  NUMECT, IUPDAT, IFAILD, IPARLL, ITMP1 .ITMP2.IH0LD 
, NFK, NSK, NKSYM, NSSYM, JMN(30), 

A0TP  , A0TQ  , A0TR  , A0TS  , AB(4), 

• BB(4)  , C8(4)  , DB(4)  , 

DP(3,3),  DQ (3,3) , DR(3,3),  DS(3,3),  EB(4), 
FK1  , FK2  , FK3  , FK4  , FK5  , 

PQ  4)  , RQ(4)  , RS(4)  , PS (4 ) , 

SP(3>)  , SQ(3)  , SR(3)  , SS(3)  , 

THETAP  , THETAQ  , THETAR  , THETAS  , 

ZP (3,3) , ZQ( 3,3) , ZR(3 ,3) , ZS(3,3) 
EQUIVALENCE  (JMN(1  ,JP) ,(UMN(2) ,JQ) ,(JMN(3) ,JR) ,(JMN(4) ,JS) , 
(JMN(5),ZETAPQ),(JMN(6),T) 

LOGICAL  IUPDAT, I FAILD, IPARLL 


Declaration  (Cell  Elements) 


C0MM0N  /LPEM/  NUMECT , IUPDAT , I FA I LD , I PARLL , I TMP 1 , ITMP 2 , 1 H0LD 
, NFK,NSK,NKSYM,NSSYM,JCN(30), 

AB( 4,8)  , BB (4,8)  , CB(4,8)  , 

DB(4,8)  , EB (4,8)  , FB(4,8)  , FK(5,8)  , 

LA(8)  , LB(8)  , LT(8) 

PQ( 4,8)  , RQ(4,8)  , RS(4,8)  , PS(4,8)  , 

THETA(8)  , TPB(4)  , TQB ( 4 ) , TRB ( 4 ) , 

TS8(4)  , TPQ(4)  , TRQ(4)  , TRS(4)  , 

TPS(4)  , UN (4,6)  , V (8 ) , ZETA(8) 

EQUIVALENCE  (JCN(1 ) ,JPO) ,( JCN(2) ,JQO) ,(JCN(3) ,JRO) ,(JCN(4) ,JSO) , 
(JCN(5) ,JP1 ) ,(JCN(6) ,JQ1 ) ,(JCN(7) ,JR1 ) ,(JCN(8) ,JS1 ) , 
(0CN(9) .ZETAPQ) 

EQUIVALENCE  JCN(11 ) ,SIG11 ) .(JCN(12) ,SI621 ) ,(JCN(13) ,SIG41 ) , 
(JCN(14) ,SIG12)  ,(0CN(15) ,SIG22) , ( JCN (16) ,SIG42) , 

( JCN (17) ,SIG13) , (JCN(18) ,SIG23) » ( JCN (19) ,SIG43) , 

(JCN ( 20 ) ,SIG54) , (JCN (21 ) ,SIG64) , (JCN(22) ,SIG55) , 

(JCN (23) ,SIG65) , (JCN (24) ,SIG36) 

L0GICAL  IUPDAT, I FA ILD, I PARLL 
REAL  LA.LB.LT 


Contents  (General) 

NUMECT 

Length  of  ECT  record 

IUPDAT 

Stiffness  update  flag 

IFAILD 

Element  failure  flag 

I PARLL 

Parallelogram  membrane  flag 

ITMP1 

Temporary  storage  array  of  length 

30 

I TMP  2 

Temporary  storage  array  of  length 

30 

IH0LD 

Temporary  storage  array  of  length 

240 

NFK 

NF*NK  (see  Labeled  Common  LIMITS) 

NSK 

NS*NK  (see  Labeled  Common  LIMITS) 

NKSYM 

(NK*NK+NK)/2 

NSSYM 

(NS*NS+NS)/2 

Contents  (Bar  Elements) 

JBN ( 1 ) Number  of  joint  p 
J8N(2)  Number  of  joint  q 
0BN(3)  Bar  area 
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Contents  (Membrane  Elements' 


JMN(l) 

JMN ( 2 ) 

JMN(3) 

JMN(4) 

0MN(5) 

JMN ( 6 ) 

A0TP 

A0TQ 

A0TR 

A0TS 

AB 

BB 

CB 

DB 

DP 

DQ 

DR 

DS 

ER 

FK1 

FK2 

FK3 

FK4 

FK5 

PQ 

RQ 

RS 

PS 

SP 

sq 

SR 

ss 


Number  of  joint  p 

Number  of  joint  q 

Number  of  joint  r 

Number  of  joint  s 

Stress  orientation  angle 

Membrane  thickness 

A*B*SIN(THETA)/T  for  corner  p 

A*B*SIN(THETA)/T  for  corner  q 

A*B*SIN(THE.TA)/T  for  corner  r 

A*B*SIN(THETA)/T  for  corner  s 

Unit  vector  components,  X/T,  Y/T,  Z/T,  T 

Unit  vector  components,  X/T,  Y/T,  Z/T,  T 

Unit  vector  components,  X/T,  Y/T,  Z/T,  T 

Unit  vector  components,  X/T,  Y/T,  Z/T,  T 

C)  matrix  for  corner  p 

D matrix  for  corner  q 

D matrix  for  corner  r 

'V, 

D matrix  for  corner  s 

Unit  vector  components,  X/T,  Y/T,  Z/T,  T 

K factor  1 

K factor  2 " 

K factor  3 
K factor  4 
K factor  5 

Edge  vector  components  and  magnitude,  X,  Y,  Z,  T 

Edge  vector  components  and  magnitude,  X,  Y,  Z,  T 

Edge  vector  components  and  magnitude,  X,  Y,  Z,  T 

Edge  vector  components  and  magnitude,  X,  Y,  Z,  T 

Skew  matrix  for  corner  p 

Skew  matrix  for  corner  q 

Skew  matrix  for  corner  r 

Skew  matrix  for  corner  s 
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THETAP 

Corner  angle 

THETAQ 

Corner  angle 

THETAR 

Corner  angle 

THETAS 

Corner  angle 

ZP 

Global  translation  matrix  for  corner  p 

ZQ 

Global  translation  matrix  for  corner  q 

ZR 

Global  translation  matrix  for  corner  r 

ZS 

Global  translation  matrix  for  corner  s 

Contents  (Cel!  Elements) 

JCN(l)  ' 

to 

Number  of  joints  pQ,  qQ,  rQ,  sq, 

JCN(8)  __ 

Pi » f r ■]  i and  S'j 

JCN ( 9 ) 

Stress  orientation  angle 

jcn(1! y 

Non  zero  elements  of  ap  where  the  numbering  of  SIG  corr- 

to 

► esponds  to  location  in  a singularly  dimensional 

array 

JCN ( 24) J 

storing  the  matrix  columnwise 

AB 

Unit  vector  components,  X/T,  Y/T,  Z/T,  T 

BB 

Unit  vector  components,  X/T,  Y/T,  Z/T,  T 

CB 

Unit  vector  components,  X/T,  Y/T,  Z/T,  T 

OB 

Unit  vector  components,  X/T,  Y/T,  Z/T,  T 

EB 

Unit  vector  components,  X/T,  Y/T,  Z/T,  T 

FB 

Unit  vector  components,  X/T,  Y/T,  Z/T,  T 

FK 

K factor 

LA 

Length  of  cell  sub-element 

LB 

Width  of  cell  sub-element 

LT 

Thickness  of  cell  sub-element 

PQ 

Edge  vector  components  and  magnitudes,  X,  Y,  Z, 

T 

RQ 

Edge  vector  components  and  magnitudes,  X,  Y,  Z, 

T 

RS 

Edge  vector  components  and  magnitudes,  X,  Y,  Z, 

T 

PS 

Edge  vector  components  and  magnitudes,  X,  Y,  Z, 

T 

theta 

Corner  angles  (THETAPO,  THETAQO,  THETARO,  THETASO, 

mtinrui  mtmjv, 

THETAP1 , THETAQ1 , THETAR1 , THETAS!) 


* 


39! 


r 


TPB 

TQB 

TRB 

TSB 

TPQ 

TRQ 

TRS 

TPS 

UN 

V 

ZETA 


Thickness  vector  components  and  magnitude 

Thickness  vector  components  and  magnitude 

Thickness  vector  components  and  magnitude 

Thickness  vector  components  and  magnitude 

Thickness  vector  components  and  magnitude 

Thickness  vector  components  and  magnitude 

Thickness  vector  components  and  magnitude 

Thickness  vector  components  and  magnitude 

Unit  vectors  approximately  normal  to  surfaces  0 through  5 

T*A*$IN (THETA)  for  cell  sub-elements 

Orientation  angle  of  cell  sub-elements 


Usage 


CHKPNT,  LPBG,  LPCFFB,  LPCG,  LPCSFB,  LPMFFB,  LPMG,  LPMSZD,  LPMS1 , LPMS2, 
0UTPUT,  PREBAL,  PREBGM,  PREBGU,  PREBLL,  PREBST 


LABELED  COMMON  NDICES 

This  common  block  Is  used  to  store  pointers  to  partitions  within 
blank  common  array  A.  All  values  in  this  common  block  are  initialized 
in  routine  NITIAL.  Partitions  for  elements  are  sized  for  cells  which 
have  the  largest  storage  requirements. 

Declaration 

C0MM0N  A(  8000) 

C0MM0N  /NDICES/IVBDB , IVBB, IVBX , IDPBPU , IPBMUB , IDPPUB , IDBL , IVBL 
, IP BAR , IPBPHU , IKB, ICB , IMBAR, IMBARL .IDEBCL , IC0NST 

, ITIME, ISIGSS 

, IKBL,IZ,ICA,IQ,IVAL,IFTAU,IVEC,IEGSYS 

, III , LU , I ECT , I EVT , IMPT , I DEBO , I DFBKO , I DSE8 

, IFK,IFBK,IDEL,IDEDL, IFSFB,IFSFBB,IPBCU 

, I PBKU ,ISIGFB,ISI GBH , IEPSIG, IPSL0N , ID, IDK 

, ISK8,ISK88,ISC8, ISC88,IPBUF,ISK,ITK,ICI8,IMEL 

, XI (30) 

Contents 


IVBD8 

v_,  modal  accelerations 

IVBB 

v , modal  velocity 

D 

IVBX 

v r modal  velocity  of  previous  increment 

IDPBPU 

<SPjj » incremental  modal  force  imbalance 

IPBMUB 

P(M)u»  modal  inertia  force 

IDPPUB 

5P(t)U’  incrementa^  modal  applied  load 

IDBL 

incremental  linear  modal  displacement 

IVBL 

vL,  linear  modal  displacement 

IP  BAR 

P,  total  modal  forces 

IPBPHU 

P($)U’  moda^  aPPlied  load 

IKB 

K,  modal  stiffness 

ICB 

C,  modal  damping 

IMBAR 

M,  modal  mass 

4 
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IMBARL 

Cholesky  decomposition  of  M 

IDEBCL 

<5E^,  incremental  element  dissipated  damping 

energy 

IC0NST 

Problem  constants 

ITIME 

Incremental  time  history 

ISIGSS 

aSo,  stress  transform  for  cell  elements 

IKBL 

Cholesky  decomposition  of  K 

IZ 

The  modal  matrix  Z = K~^Pg 

ICA 

The  modal  matrix  yo 

IQ 

The  modal  matrix  Q * C F(t)  where  C is  C 

aD  aD  a 

diagonalized 

IVAL 

eigenvalues 

IFTAU 

F(t),  a modal  column  matrix  of  eXx 

IVEC 

H,  eigenvectors 

IEGSYS 

Eigenvalue  problem  work  array 

IU 

U,  joint  coordinate  table 

LU 

Joint  coordinate  update  flags 

IECT 

. ECT,  element  constant  table 

IEVT 

EVT,  element  variable  table 

IMPT 

MPT,  material  property  tables 

IDEBO 

6eQ,  Incremental  initial  element  deformations 

IDFBKO 

oFk  , incremental  element  forces  due  to  initial  deformations 

IDSEB 

U 

5i,  incremental  element  deformations 

IFK 

The  matrix  FK  = F^  + 6FK  for  an  element 

B-l  0 

IFBK 

Fk,  element  forces 

IDEL 

Se^,  incremental  linear  element  displacement 

IDEDL 

SeL>  incremental  linear  element  velocity 
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IFSFB 

Fp,  element  force  transform 

IFSFBB 

F?  , average  of  F?  and  F0 

‘ B-l  8 

IPBCU 

P(C)u»  modal  damping  forces 

IPBKU 

P ( K)U * modal  stiffness  forces 

ISIGFB 

Op,  element  stress  transform 

ISIGBH 

o g , preliminary  element  stresses 

IEPSIG 

e , element  strain  transform 

0 

IPSL0N 

c,  element  strains 

ID 

The  matrix  D * P^p  Fp  for  an  element 

IDK 

The  matrix  DK  3 Pyp  Fp  k for  an  element 

ISKB 

k,  unassembled  element  stiffness 

ISKBB 

K-,  average  of  Kg_1  and  Kg 

ISCB 

c,  unassembled  element  damping 

ISCBB 

Cr , average  of  C.  , and  C. 

P P-  1 P 

IPBUF 

PyP , modal  transform 

ISK 

s^,  modal  fictitious  force  equivalent  loads 

ITK 

tk>  modal  fictitious  deformation  equivalent  loads 

ICIB 

The  matrix  Cl  = Pyp  Fp  c FpT  P^  for  an  element 

IMEL 

m,  element  mass 

XT 

Pad  for  expansion  of  NDICES 
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Usage 


RESPNS,  AVRAGE,  CHK0UT,  CHKPNT , EIGS0L,  FIFDEF,  F0RMAT,  GE0M,  IMBAL, 
NDXSET,  NITIAL,  0UTPUT,  P0LS0L,  PBARUF , PREBAL,  PREBGM , PREDBGU,  PREBLL, 
PREBST,  PREEIG,  PTMASS,  READK 


LABELED  COMMON  TAPES 


This  common  block  Is  used  to  store  the  FORTRAN  logical  unit  numbers 
of  the  external  files  used  by  the  program. 

Declaration 

COMMON  /TAPES  /TAPES (20),  X2(10) 

Contents 

The  values  In  the  common  block  are  Initialized  In  routine  NITIAL. 

The  FORTRAN  logical  unit  designations  and  equivalences  assigned  are  given 
here. 


TAPES ( 1 )*N1S 

1 

TAPES  (2  )=N2  = 

2 

TAPES  (3)SN3= 

3 

TAPES  (4)=N4= 

4 

TAPES  (5  )=N5= 

8 

TAPES  (6 )=N6= 

9 

TAPES  (7)=N7= 

10 

TAPES  (8)*N8= 

11 

TAPES  (9 )=N9= 

12 

TAPES (1 0 )=N1 0= 

13 

TAPES (11 )sNll= 

14 

TAPES(12)=N12= 

15 

TAPES(13)=N13= 

16 

TAPES(14)=N14= 

17 

TAPES(15)=N15= 

18 

TAPES(16)*N16= 

19 

TAPES (17)=N17= 

20 

TAPES(18)=N18= 

21 

TAPES(19)=N19= 

22 

TAPES ( 20 )=N20* 

23 
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Array  X2  is  a pad  for  expansion  of  labeled  common  block  TAPES. 


Usage 


RESPNS,  CHKPNT,  EIGS0L,  FIFDEF,  IMBAL,  NITIAL,  0UTPUT , PBARUF,  PREBAL, 
PREBGM,  PREBGU,  PREBLL,  PREBST,  PREEIG,  PTMASS,  READK 


SUBROUTINE  AVRAGE 


This  routine  computes  the  fictitious  force  and  deformation  matrices 
nk  and  rk. 


Algorithm 

Matrices  nk  and  rk  are  computed  according  to  equations  H.278  through 
H.329  given  in  Appendix  H of  Part  1. 

Input /Output 
None 


Argument  List 


NUM 

An 

FFDB 

A 

FFDB1 

A 

GFB 

A 

GFB1 

A 

RSR 

A 

FBF 

A 

DO 

A 

RNK 

A 

RRK 

A 

Labeled 

Common 

LIMITS, 

NDICES 

TS 

V 


Subroutines  Called 
MLTMAT , NKRK,  TRNMLT 


Error  Detection 


SUBROUTINE  CHK0UT 


This  routine  prints  intermediate  data  during  the  execution  of  the 
fictitious  force  and  deformation  module. 

Algorithm 

Depending  on  the  value  of  the  argument  ICASE,  control  is  transferred 
to  a section  of  code  which  sets  the  first  location  of  the  array  partition 
to  be  printed  and  the  row/column  dimensions  of  the  partition.  Appropriate 
title  information  is  also  set. 

Control  is  then  transferred  to  one  of  three  calls  to  routine  MATPRT 
to  print  the  partition  from  one  of  three  arrays. 

Input/Output 

» 

Data  to  be  printed  Is  written  to  file  6. 

Argument  List 

ICASE 
B 

Labeled  Common 

CRRAYS , FICNDX,  NDICES,  LIMITS 

Subroutines  Called 
MATPRT 


An  integer  scalar  defining  which  data  is  to  be  printed 
A real  array  of  intermediate  data 


Error  Detection 


SUBROUTINE  CHKPNT 


This  routine  prints  intermediate  data  at  selected  points  during  the 
execution  of  routine  PREBAL. 

Algorithm 

Routine  PREBAL  calls  this  routine  at  selected  check  points  during  its 
execution.  At  each  point,  selected  intermediate  data  is  printed  using 
routine  PL0P.  Logic  is  provided  to  control  printing  at  each  point  using 
array  KPRNT  which  Is  initialized  in  a DATA  statement.  Printing  takes  place 
at  each  point  only  if  the  corresponding  value  in  array  KPRNT  is  non-zero. 

Also,  all  printing  can  be  suppressed  by  making  KPRNT  (15)  equal  to  zero. 

Input/Output 

All  printed  output  is  written  on  file  6. 

Argument  List 

I An  integer  scalar  defining  the  element  number  for  which  data 

is  being  printed 

J An  integer  scalar  defining  the  checkpoint  for  which  data  Is 

being  printed 

Labeled  Common 

NDICES,  LIMITS,  TAPES,  LPEM 

Subroutines  Called 
PL0P 

* 

Error  Detection 
None 
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SUBROUTINE  EDGUNV 


This  routine  calculates  the  edge  vectors  of  an  element  from  the  joint 
coordinate  data. 

A1 qorithm 

Repeated  constants  are  calculated  and  the  number  of  edges  for  the 
element  type  that  is  under  consideration  is  set.  The  joint  pairs  that 
determine  an  edge  vector  are  set  and  the  corresponding  edge  vector  is 
calculated  from  the  coordinates.  This  is  done  for  one  edge  for  a bar,  the 
4 edges  of  a membrane  and  the  edges  associated  with  joints  1,  2,  3 and  4 
of  a cell.  If  the  element  is  a cell,  then  the  basic  edge  calculations 
just  obtained  are  copied  into  the  next  12  memory  locations,  rather  than 
recalculated  for  the  other  surface.  Using  the  cell  thickness  data  developed 
in  subroutine  GE0M  , the  complete  edge  vector  calculations  are  performed 
for  all  edges  and  stored  in  variable  array  EDGV. 

For  all  element  types  the  edge  unit  vectors  are  calculated  and  stored 
in  variable  array  UNV. 

Inout/Output 

Error  messages,  if  any,  are  written  to  file  6. 

Argument  List 

IECREC  An  integer  array  for  the  ECT  table  record  for  the  element  under 
consideration 

NUM  An  integer  scalar  defining  the  number  of  words  in  the  ECT  record 

Labeled  Common 
FICNDX,  GE0MS 

Subroutines  Called 
— 

None 

I 
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Error  Detection 

Testing  is  performed  to  detect  zero  edge  lengths.  If  found,  a 
diagnostic  is  written  to  that  effect,  the  variable  I ERR0R  is  set  to  1 
and  control  is  returned  to  the  calling  routine  GE0M. 


SUBROUTINE  EIGS0L 


This  routine  assembles  the  A matrix,  solves  for  all  eigenvalues  and 
eigenvectors,  and  computes  the  modal  response. 

Algorithm 

Input  to  EIGS0L  are  the  core  resident  transformed  modal  stiffness, 
damping,  decomposed  mass,  and  loads  matrices  K,  C,  M"1,  and  P,  respect- 
ively. Also  input  for  all  iterations  other  than  the  first  are  the  equiv- 
alent loads  derived  from  fictitious  force  and  deformation  effects  computed 
by  routine  FIFDEF  which  are  also  core  resident.  Output  from  EIGS0L  are 
the  modal  displacements,  velocities,  and  accelerations,  <sZ,  v,  and  v, 
respectively.  The  equations  for  solution  of  the  modal  response  are  given 
in  Appendix  H of  Part  1 (H.161  through  H.175). 

First,  the  load  variation  constants,  wp,  cp,  and  c^  are  computed.  The 
modal  loads  P and  the  incremental  equivalent  loads  6P^j  are  scaled  by  c 
and  Cf,  respectively.  Routine  NEWKC  is  invoked  to  form  matrix  K^.  and  its 
Inverse.  The  real  and  imaginary  parts  of  6^c  and  are  then  computed 
and  stored  in  A(IKBL)  and  A(IKBLX),  respectively. 

The  A matrix  is  then  assembled  and  all  eigenvalues,  x,  and  eigenvect- 
ors, H,  are  computed  by  routine  RGEIG.  The  eigenvectors  are  written  to 
N8  before  being  inverted  by  routine  J0RDAN. 

The  modal  response  equations  are  then  solved  for  5Z,  v,  and  v.  During 
these  computations,  the  eigenvectors  are  read  from  N8  where  they  had  been 
temporarily  stored. 

Input/Output 

The  eigenvectors  H are  written  to  file  N8  and  are  subsequently  read 
back  into  core. 
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B A real  array  for  the  A matrix 

X A real  array  for  the  eigenvectors 

M An  integer  scalar  defining  the  order  of  the  problem 

N An  integer  scalar  equal  to  M/2 

Labeled  Common 
NOICES,  LIMITS,  TAPES 

Subroutines  Called 

CCMULT,  CRMULT,  J0RDAN,  NEWKC,  PL0P,  REAOA , RGEIG,  SMULT,  SYMFIL,  SYMS0L, 
VDMULT,  WRITE,  XP0NNT 

Error  Detection 
None 


SUBROUTINE  FIFDEF 


This  routine  is  the  driver  routine  for  the  module  that  generates 
the  elemental  fictitious  force  and  deformation  matrices  based  on  linear 
incremental  displacements  and  average  geometry  (equations  H.181  through 
H.331  in  Appendix  H of  Part  1). 

Algorithm 

Pointers  are  identified  for  those  matrices  stored  in  blank  common 
array  A and  initialization  is  performed. 

For  each  element  of  the  structure  the  following  processing  steps  are 
performed.  The  ECT  table  record  is  read  from  file  N12.  If  the  element 
has  failed,  then  the  next  element  is  read.  Matrices  V*  Fp  and  DK  are 
read  from  files  Nil,  N13,  and  N6  respectively.  Matrix  k is  also  read 
from  N6.  Processing  parameters  are  set  for  the  element  type;  bar,  membrane 
or  cell.  5e^  and  <5g^  are  then  calculated.  The  element  deformations  flag 
is  set  to  zero,  meaning  that  deformations  will  not  be  added  to  the  core 
resident  joint  coordinates.  The  element  geometry  is  calculated  by  routine 
GE0M  relative  to  the  joint  coordinates  at  the  beginning  of  the  increment. 

The  variable  BETBAR,  which  indicates  whether  this  is  the  second 
iterative  solution  to  account  for  material  nonlinearity,  is  then  tested. 

This  test  and  the  processing  initiated  when  BETBAR  is  true  are  part  of  the 
original  design  and  are  no  lonaer  applicable.  This  is  also  true  regarding 
the  test  and  processing  associated  with  the  variable  HEAT  which  is  the 
option  of  accounting  for  damping  energy  converted  to  heat  during  impact. 

Matrix  FKg is  read  from  file  N6  and,  if  not  the  first  iteration  for 
geometric  nonlinearity,  the  element  forces  due  to  fictitious  deformations 
are  read  from  file  N30.  The  final  element  forces  for  this  iteration 
are  then  computed.  If  this  is  the  last  iteration,  processing  should  end 
here.  This  would  avoid  the  regeneration  of  fictitious  forces  and  deformations 
for  the  last  iteration.  Appropriate  testing  and  transfer  instructions  should 
be  inserted  in  the  code. 
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Matrices  Fp,  Gf,  D0,  and  Df  are  then  calculated  based  on  the  final 
element  forces  and  the  geometry  at  the  beginning  of  the  increment.  This 
data  is  written  to  file  N3.  Code  should  be  inserted  here  to  avoid 
regeneration  of  this  data  for  iterations  other  than  the  first.  The  data 
stored  on  file  N3  should  be  read  and  re-used. 

The  geometry  is  then  temporarily  updated  according  to  5e,  the  element 
displacements,  and  matrices  Fp,  Gf,  and  Ff  generated  for  the  new  geometry. 
The  average  of  these  matrices  for  new  and  old  geometry  is  computed.  From 
the  average  matrices,  the  fictitious  element  deformations  5*  are  computed 
as  are  the  n^  and  r^  coefficients.  Finally,  the  equivalent  applied  loads 
for  fictitious  force  and  deformation  effects  sk  and  tk,  respectively,  are 
computed. 

If  this  is  not  the  last  iteration  for  geometric  nonlinearity,  the 
element  forces  due  to  fictitious  deformations  are  computed  and  written  to 
file  N31 . If  it  is  the  last  iteration,  the  final  element  forces  and 
deformations  and  velocities  computed  earlier  are  written  to  files  N5  and 
N7,  respectively. 


This  ends  the  processing  for  an  element.  Control  is  transferred  to 
the  beginning  of  this  loop  to  process  the  next  element. 


Inout/Outout 

The  matrices  are  read  or  written  as  indicated  below 
read  from  Nil 
read  from  N13 
read  from  N12 
written  on  N5 
read  from  N6 
read  from  N30 
written  on  N31 
written  on  N7 


kUF 

FFs-1 

ECT 

. 

DK,k,FK 

5FKf(old) 

5FKf(new) 

$e,5e 


Intermediate  data  is  printed  on  file  6. 
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Argument  List 


NFFINC  An  integer  scalar  defining  the  iteration  number 

NFFMAX  An  integer  scalar  defining  the  maximum  number  of  iterations 

N30  An  integer  scalar  defining  the  input  file  for  6F^ 

N31  An  integer  scalar  defining  the  output  file  for  6^. 

Labeled  Common 

LIMITS,  NDICES,  TAPES,  FICNDX,  GE0MS , CRRAYS 
Subroutines  Called 

ABSYM,  ASYMB,  AVRAGE,  CHGSGN , C0PY,  GE0M,  LPBFIC,  LPCFIC,  LPMFIC,  MLTMAT, 
MULT,  PBARUF,  READA,  REA DM,  TMULT , WRITE,  WRITEM 

Error  Detection 
None 
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SUBROUTINE  FORMAT 


This  routine  outputs  matrices  K,  C,  and  M in  a format  consistent  with 
FORMAT  master  input/output  tapes. 

Algorithm 

The  core  resident  matrices  K,  C,  and  M,  which  are  stored  in  upper  tri- 
angular row-wise  form,  are  assembled  in  full  form  using  routine  SYMFIt.  Each 
is  then  output  to  file  19  as  FORMAT  matrix  data. 

This  routine  was  used  in  the  early  stages  of  program  development  and  is 
no  longer  required  nor  called  by  the  final  version  of  the  program. 

Input/Output 

A FORMAT  matrix  tape  is  generated  on  file  19  containing  matrices  K, 

C,  and  M. 

Argument  List 
None 

Labeled  Common 
NDICES,  LIMITS 

Subroutines  Called 
CHGSGN,  SYMFIL,  WRITE 

Error  Dectection 
None 
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SUBROUTINE  GE0M 

This  routine  stores  the  joint  coordinates  for  an  element  and, 
conditionally,  adds  element  deformations.  Thickness  vectors  are  calculated 
for  cell  elements  and  edge  and  unit  vectors  are  calculated  for  all  elements. 

Algorithm 

The  element  joint  coordinates  are  accessed  in  the  coordinate  table 
and  stored  in  array  C0ORD.  The  deformation  flag  IDEFRM  is  checked  and, 
if  equal  to  one,  the  element  displacements  are  added  to  the  joint  coord- 
inates. If  the  element  is  a cell,  then  the  cell  thicknesses  are  calculated, 
and  subsequently,  the  cell  thickness  differentials. 

For  any  element  type,  routine  EDGUNV  is  called  to  determine  the  edge 
and  unit  vectors. 

Input/Output 

None 

Argument  List 

NUM  An  integer  scalar  defining  the  number  of  words  in  the  ECT  record, 

used  to  determine  element  type 

IDEFRM  An  integer  scalar  flag  for  deformations 

REC  A real  array  for  storage  of  the  element  ECT  table 

Labeled  Common 
GE0MS , FICNDX , NDICES 

Subroutines  Called 
EDGUNV 

Error  Detection 
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SUBROUTINE  IMBAL 

This  routine  computes  the  stresses  and  strains  of  each  element  and 
writes  the  element  forces,  stresses,  and  strains  to  the  master  output  file. 

Algorithm 

First,  the  logical  variable  BETABAR  Is  tested  to  determine  If  this  is 
the  second  iterative  solution  due  to  material  nonlinearity.  This  test  and 
the  processing  it  initiates,  as  well  as  other  tests  and  processing  related 
to  BETABAR  equal  true,  are  part  of  the  original  design  and  are  no  longer 
required. 

The  cumulative  transformed  applied  loads  P^^  are  then  augmented 
with  their  incremental  component.  The  equilibrium  Imbalance  6PU  is  then 
computed.  The  subsequent  test  of  the  imbalance  to  check  the  solution  is  part 
of  the  original  design  and  is  no  longer  required. 

The  modal  response  consisting  of  a,  <sa,  v,  v,  P^^,  and  6Py  is  then 
assembled  and  Is  output  as  a column  matrix  with  the  name  RESPNS  and  a sub- 
script equal  to  the  increment  number. 

A loop  is  then  entered  whose  index  is  the  number  of  element  types. 

Control  flags  are  then  set  according  to  element  type.  The  elements  types 
are  processed  in  the  order  bars,  membranes,  and  cells.  If  elements  of  a 
given  type  exist  in  the  model,  a second  inner  loop  is  entered  whose  index 
is  the  number  of  elements  of  that  type. 

A matrix  is  written  to  the  master  output  file  for  each  element  type 
that  exists  in  the  model.  The  following  operations  are  performed  for  each 
element  In  the  inner  loop. 

Read  Op,  cff,  FK,  e8_^  and  6FK  from  scratch  files 

a * ap  Fr  for  bars  and  membranes 
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— i- 


f 


r 


■Mi 


or 

o a o$cr  Op  Fk  for  cells 

£ * Ee-1  + Ea  SfK 

Write  Fk,  o,  and  e to  master  output  file 

The  element  forces,  stresses,  and  strains  are  arranged  in  that  order 
into  a single  column  of  the  output  matrix  for  each  type  of  element.  The 
matrix  names  used  for  the  three  element  types  are  BARS,  MEMBRN , and  CELLS. 
Each  Is  subscripted  with  the  increment  number. 

After  processing  all  elements,  external  files  are  positioned  and  app- 
ropriate files  are  flip  flopped  according  to  the  original  design. 

Input/Output 

The  following  matrix  data  is  read  and  written  during  IMBAL: 


Op,  6Fk 

read  from 

N6 

fk 

read  from 

N5 

eo 

read  from 

N16 

CB-1 

read  from 

N9 

e6 

written  to 

N10 

The  modal  response  and  element  forces,  stresses,  and  strains  are 
written  to  the  master  output  file  N20. 

Argument  List 

DBLL  A real  array  for  the  cumulative  modal  displacements  a 
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Labeled  Common 


NOICES,  LIMITS,  TAPES 
Subroutines  Called 

ABSYM,  ADD,  ASYMB,  HALT,  MULT,  PL0P,  READA,  READM , SYMABT,  WRITEM,  ZER0 
Error  Detection 

Error  conditions  are  tested  for  when  BETABAR  equal  true  but  these  tests 
are  no  longer  applicable. 


SUBROUTINE  LPBFIC 

This  routine  calculates  the  geometric  and  force  matrices  for 
fictitious  force  and  deformation  effects  from  bar  elements. 

Algorithm 

Matrices  Gf,  F^ 
through  H.192  given  in 
data  in  labeled  common 

Input/Output 
None 

Argument  List 

FFBB  A real  array  for  matrix  Fp 

GF  A real  array  for  matrix  6^ 

FBF  A real  array  for  matrix  F^ 

FB  A real  array  for  matrix  F^ 

Labeled  Common 
GE0MS 

Subroutines  Called 
None 

Error  Detection 
None 


and  Fp  are  computed  according  to  equations  H.181 
Appendix  H of  Part  1.  Input  consists  of  geometric 
block  GE0MS  and  the  element  forces  F„. 

IN 


414 


SUBROUTINE  LPBG 

This  routine  regenerates  matrices  F^  and  op  for  bar  elements. 
Algorithm 

Using  the  joint  coordinate  table  stored  in  array  U and  the  element 
definition  stored  in  labeled  conmon  IPEM,  this  routine  forms  matrices 
Fp  and  Op  as  follows  (array  dimensions  appear  on  the  left): 

(3xl)  3-if, 

-a. 


(7  x 2) 


FF 


-a. 


(1  x 2)  ap 

Input/Output 

None 

Argument  List 
U 

FFBAR 
SIGFB 


1.0  -1.0 


[k|k] 


A real  array  of  joint  coordinates 
A real  array  for  matrix  F^ 

A real  array  for  matrix  ap 
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Labeled  Common 


LPEM 


Subroutines  Called 
VECT 

Error  Detection 
None 


t 


SUBROUTINE  LPCFFB 

This  routine  regenerates  matrix  Fp  for  a cell  element. 

Algorithm 

This  routine  regenerates  matrix  Fp  in  a manner  identical  to  routine 
LPCFFB  In  the  Initial  Generator  (see  Appendix  B).  The  coding  is  identical 
except  for  common  blocks  and  arguments. 

Input/Output 

None 

Argument  List 

FFBAR  A real  array  for  matrix  Fp 

HOLD  A real  array  for  intermediate  storage 

Labeled  Common 
LPEM 

Subroutines  Called 
None 


Error  Detection 


SUBROUTINE  LPCFIC 


This  routine  calculates  the  geometric  and  force  matrices  for 
fictitious  force  and  deformation  effects  from  cell  elements. 

Algorithm 

Matrices  D0,  Gf,  Ff,  rr'  , and  Fj;  are  computed  according  to  equations 
H.225  through  H.277  given  in  Appendix  H of  Part  1.  Input  consists  of 
geometric  data  in  labeled  common  block  GE0MS  and  the  element  forces  F]<. 

Input/Output 

None 


Argument  List 


FFBB 

A real 

array 

for 

matri x 

RR 

A 

real 

array 

for 

matrix 

V 

GF 

A 

real 

array 

for 

matrix 

_f 

FBF 

A 

real 

array 

for 

matrix 

Ff 

DO 

A 

real 

array 

for 

matrix 

Do 

FB 

A 

real 

array 

for 

matrix 

h 

Labeled  Common 
GE0MS 

Subroutines  Called 
VECT 

Error  Detection 
None 
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SUBROUTINE  LPCG 

This  routine  computes  geometric  data  and  panel  K factors  for  a 
cell  element. 

Algorithm 

This  routine  computes  all  geometric  data  and  panel  K factors  in  a 
manner  Identical  to  routine  LPCG  In  the  Initial  Generator  (see  Appendix 
B).  It  does  not,  however,  compute  element  volume  and  mass.  Otherwise, 
the  coding  Is  Identical  except  for  common  blocks  and  arguments. 

Input/Output 

None 

Argument  List 

U A real  array  of  joint  coordinates 

Labeled  Common 
LPEM 

Subroutines  Called 
VECT 

Error  Detection 
None 
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SUBROUTINE  LPCSFB 

This  routine  regenerates  matrix  ap  for  a cell  element. 

A1 qori thm 

This  routine  regenerates  matrix  <jp  in  a manner  identical  to  routine 
LPCKC  in  the  Initial  Generator  (see  Appendix  B).  It  does  not,  however, 
compute  the  stiffness  matrix.  Otherwise,  the  coding  Is  identical  except 
for  common  blocks  and  arguments. 

Input/Output 

None 

Argument  List 

SFBAR  A real  array  for  matrix  o-p 

JH0LD  An  integer  array  for  intermediate  storage 

Labeled  Coranon 
LPEM 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  LPMFFB 

This  routine  regenerates  matrix  Fp  for  a membrane  element. 

A1 gori thm 

This  routine  regenerates  matrix  Fp  in  a manner  identical  to  routine 
LPMFFB  in  the  Initial  Generator  Csee  Appendix  B).  The  coding  is  identical 
except  for  common  blocks  and  arguments. 

Input/Output 

None 

Argument  List 

FFBAR  A real  array  for  matrix  Fp 

H0LD  A real  array  used  for  temporary  storage 

Labeled  Common 
LPEM 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  LPMFIC 


This  routine  calculates  the  geometric  and  force  matrices  for 
fictitious  force  and  deformation  effects  from  membrane  elements. 

Algorithm 

Matrices  D0,  Gf,  Ff,  rr'  , and  Fp  are  computed  according  to  equations 
H.193  through  H.224  given  in  Appendix  H of  Part  1.  Input  consists  of 
geometric  data  in  labeled  common  block  GE0MS  and  the  element  forces  FK- 

Input/Output 

None 

Argument  List 

FFBB  A real  array  for  matrix  Fp 

RR  A real  array  for  matrix  r / 

GF  A real  array  for  matrix  Gf 

FBF  A real  array  for  matrix  Ff 

DO  A real  array  for  matrix  DQ 

FB  A real  array  for  matrix  FK 

Labeled  Common 
GE0MS 

Subroutines  Called 
VECT 

Error  Detection 
None 
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SUBROUTINE  LPMG 


This  routine  computes  geometric  data  and  panel  K factors  for  a 
membrane  element. 

Algorithm 

This  routine  computes  all  geometric  data  and  panel  K factors  in  a 
manner  identical  to  routine  LPMG  in  the  Initial  Generator  (see  Appendix 
B).  It  does  not,  however,  compute  element  volume  or  mass.  Otherwise, 
the  coding  is  identical  except  for  common  blocks  and  arguments. 


Input/Output 

None 

Argument  List 

U A real  array  of  joint  coordinates 

Labeled  Common 
LPEM 


Subroutines  Called 
VECT 


Error  Detection 
None 
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SUBR0UTINE  LPMSZD 

This  routine  computes  the  area  matrices  and  the  global  transform 
matrices  used  to  compute  matrix  <jp  for  a membrane  element. 

Algorithm 

This  routine  regenerates  matrix  tip  in  a manner  identical  to  routine 
LPMSZD  in  the  Initial  Generator  (see  Appendix  B).  It  does  not,  however, 
compute  the  & matrices.  Otherwise  the  coding  is  Identical  except  for 
common  blocks  and  arguments. 

Input/Output 

None 

Argument  List 

SFBAR  A real  array  for  matrix  op 

Labeled  Common 
LPEM 

Subroutines  Called 
LPMS1 , LPMS2 , LPMZ 

Error  Detection 


None 


r 


SUBROUTINE  LPMS1 

This  routine  forms  matrix  ap  for  a parallelogram  membrane  element. 

i 

Algorithm 

This  routine  regenerates  matrix  <jp  in  a manner  identical  to  routine 
LPMS1  in  the  Initial  Generator  (see  Appendix  B).  The  coding  is  Identical 
except  for  conuion  blocks  and  arguments. 

Input/Output 
None 

Argument  List 

SFBAR  A real  array  for  matrix  <jp 

Labeled  Common 
LPEM 

Subroutines  Called 
None 

Error  Detection 
None 


SUBR0UTINE  LPMS2 

This  routine  forms  matrix  <jp  for  an  approximate  parallelogram 
membrane  element. 

Algorithm 

This  routine  regenerates  matrix  <jp  in  a manner  identical  to  routine 
LPMS2  in  the  Initial  Generator  (see  Appendix  B).  The  coding  is  Identical 
except  for  common  blocks  and  arguments. 

Input/Output 

None 

Argument  List 

SFBAR  A real  array  for  matrix  <jp 

Labeled  Common 
LPEM 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  MATPRT 


This  routine  is  a matrix  print  utility  routine  used  by  the  fictitious 
force  and  deformation  module. 

Algorithm 

The  matrix  to  be  printed  is  assumed  to  be  full  and  real  mode.  After 
printing  a title  line,  the  matrix  is  printed  row  by  row. 

Input/Output 

Matrix  data  is  printed  on  file  6. 

Argument  List 

TARG  A real  array  for  the  matrix  to  be  printed 

IR0W  An  integer  scalar  defining  the  row  dimension 

IC0L  An  integer  scalar  defining  the  column  dimension 

C0MENT  An  alphanumeric  array  of  descriptive  information 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  MLTMAT 

This  routine  performs  an  incore  matrix  multiplication. 

Algorithm 

If  a cumulative  summation  of  matrix  products  is  not  requested,  the 
product  matrix  is  initialized  to  zero.  The  cumulative  summation  of  matrix 
products  is  then  performed  according  to 

C = C + AB 


Input /Output 
None 

Argument  List 

C A real  array  for  the  product  matrix 

A A real  array  for  the  premultiplier  matrix 

B A real  array  for  the  postmultiplier  matrix 

L An  integer  scalar  defining  the  usable  row  dimension  of  A and  C 

M An  integer  scalar  defining  the  usable  column  dimension  of  A and 

the  usable  row  dimension  of  B 

N An  integer  scalar  defining  the  usable  column  dimension  of  B and  C 

MR0W  An  integer  scalar  defining  the  row  dimension  of  A and  C 

MCI  An  integer  scalar  defining  the  row  dimension  of  B and  the  column 

dimension  of  A 

MC2  An  integer  scalar  defining  the  column  dimension  of  B and  C 

SUM  A logical  scalar  flag  for  cumulative  summation 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  NEWKC 

This  routine  computes  the  inverse  of  the  augmented  modal  stiffness 
matrix  Kq. 

Algorithm 

The  augmented  modal  stiffness  matrix  is  formed  according  to 

i<c  . K - M + J Up  C 
and  routine  JORDAN  is  called  to  Invert 

Input/Output 

None 

Argument  List 

X A real  array  for  storing  the  real  and  imaginary  parts  of 

A A real  array  for  matrix  K 

B A real  array  for  matrix  M 

C A real  array  for  matrix  C 

D A real  array  used  by  routine  JORDAN  to  compute  the  inverse  of  Kj. 

NG  An  integer  scalar  defining  the  order  of  the  problem 

WW  A real  scalar  for  the  load  variation  constant  01 

P 

WVISQ  A real  scalar  for  the  square  of  the  load  variation  constant  <Dp 

Labeled  Common 
None 

Subroutines  Called 
JOROAN 
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Error  Detection 


SUBROUTINE  NITIAL 


This  routine  performs  the  Initialization  steps  necessary  before 
entering  the  Incremental  solution. 

Algorithm 

Routine  NITIAL  performs  the  first  stage  of  Initialization  process. 
First,  labeled  common  block  TAPES  Is  Initialized  with  the  FORTRAN  logical 
unit  numbers  to  be  used  for  the  scratch  files.  Routine  MATIN  Is  then 
called  to  read  the  first  master  input  tape  and  copy  each  Input  matrix  to 
individual  scratch  files.  The  Input  file  contains  matrices  P^,  MPT,  UQ, 
EOT,  m,  k,  c,  F^,  <jp,  e^,  ij,  EVT,  and  CONST  assembled  in  a previously 
executed  FORMAT  step.  Only  matrices  CONST  and  UQ  remain  core  resident. 

All  card  Input  is  then  read  by  routine  NITIAL  consisting  of  run 
parameters  and  incremental  time  history.  The  first  data  card  Is  read  with 
a format  (416,  1L1,  216)  and  contains  the  following  run  parameters: 


BETA 

beginning  time  Interval 

NELEMS 

total  number  of  physical  elements 
(excludes  point  mass  elements) 

NTRVLS 

number  of  time  intervals 

NG 

number  of  transformation  modes 

HEAT 

"F",  dummy  logical  control  flag 

NUTS 

number  of  joints 

NW0RK 

optional  extent  of  blank  common 

The  array  NTRVLS,  ascending  values  of  elapsed  time.  Is  then  read  with 
format  (6E12.0)  and  tested  for  ascending  order. 

Using  the  problem  sizing  Information  obtained  from  the  matrix  and  card 
Input,  the  process  of  allocating  partitions  of  the  blank  common  region  for 
each  array  required  In  subsequent  processing  steps  is  performed.  The  first 
location  of  each  of  these  partitions  is  stored  in  labeled  common  block 
NOICES. 
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Next,  the  cell  stress  transform,  ae  , is  initialized  since  it  is 

5 O 

constant  for  all  cell  elements.  Routine  READK  is  then  called  to  rewrite 
matrices  k,  c,  F^,  e^,  and  se-j.  in  optimum  format. 

The  original  joint  coordinate  data  is  then  read  into  core  from  the 
scratch  file  where  it  had  been  written  by  routine  MATIN.  Before  exiting 
NITIAL,  various  blank  common  partitions  are  Initialized  to  zero  including 
those  for  v,  v,  P^y,  sP^y,  and 

Interspersed  in  the  above  Initialization  steps  is  the  setting  of 
problem  parameter  variables  in  labeled  common  block  LIMITS. 

Some  code  exists  in  this  routine  which  was  intended  for  restart 
capability  which  is  not  operational  and  could  be  deleted.  This  code  can 
be  Identified  by  a test  for  BETA  not  equal  to  one  which  implies  a restart 
run. 

Input/Ouput 

All  card  input  is  read  from  file  5 and  all  printed  output  is  written 
to  file  6.  Card  input  consists  of  a single  card  of  run  parameters  and  the 
Incremental  time  history.  Printed  output  consists  of  incremental  time 
history  and  error  messages,  if  any. 

Argument  List 
None 

Labeled  Common 
NOICES,  LIMITS,  TAPES 

Subroutines  Called 

ASYMB,  CHGSGN,  MATIN,  NDXSET,  PL0P,  READA,  READK,  ZER0 
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Error  Detection 

The  incremental  times  are  tested  for  ascending  order  and.  If  an  error 
Is  found,  the  run  is  terminated.  The  available  workspace  is  also  tested 
against  that  required  for  the  problem  and,  if  insufficient,  the  run  is 
terminated.  Appropriate  error  messages  are  printed  on  file  6 in  each  case. 


SUBROUTINE  NKRK 

This  routine  comoutes  the  fictitious  force  and  deformation  matrices 
ng  and  rg  for  membrane  and  cell  elements. 

Algorithm 

Matrices  ng  and  rg  are  computed  for  membrane  and  cell  elements 
according  to  equations  H.293  through  H.324  given  in  Apoendix  H of  Part  1. 

Input/Output 

Error  messages,  if  any,  are  written  to  file  6. 


Argument  List 

AA 

A real 

B 

A real 

SKE 

A real 

AEO 

A real 

Q 

A real 

EBBL 

A real 

RN 

A real 

RB 

A real 

Labeled  Common 

scalar  equal  to  the  length  a 
scalar  equal  to  the  length  b 
scalar  equal  to  the  skew  angle  5 
scalar  equal  to  the  element  deformation  eQ 
scalar  equal  to  the  element  force  f 

A. 

array  for  matrix  6e 
array  for  matrix  ng 
array  for  matrix  rg 


LIMITS,  FICNDX , CRRAYS 


Subroutines  Called 
None 

Error  Detection 

The  sine  and  cosine  of  the  angle  SKE  are  tested  for  zero.  If  true, 
appropriate  error  messages  are  printed,  the  error  flag  is  set  to  one,  and 
control  returned  to  the  calling  routine. 
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SUBROUTINE  0UTPUT 

This  routine  transcribes  certain  input  data  to  the  master  output  file. 
Algorithm 

Input  matrices  UQ,  <5P^y,  ancl  ^UPTJ  are  wr-*tten  t0  the  master  output 
file  as  are  the  input  array  of  problem  constants  and  the  card  input  afray 
of  incremental  times.  Before  outputing  the  array  of  problem  constants,  It 
is  augmented  with  the  number  of  time  intervals  and  number  of  modes  from  the 
card  input  data.  k 

> 

i 

The  F0RMAT  tape  name  and  modifier  used  is  TAPE,  1 and  is  imbedded  In 
the  code.  The  F0RMAT  matrix  names  and  modifiers  of  the  output  matrices 
and  their  sequence  of  appearance  on  the  master  output  file  is  as  follows: 
C0NST,  1 Problem  constants 

TIME,  1 Incremental  time  history 

UZER0,  1 Original  joint  coordinates,  UQ 

(DPBPHI,  1)  Incremental  applied  loads, 

(PBUPTJ,  1)  Modal  to  joint  T degree  of  freedom  transform, 

PUPTJ 

where  the  names  in  parenthesis  are  user  defined  in  a previous  F0RMAT  step 
and  all  others  are  imbedded  in  the  code. 

Input/Output 

A F0RMAT  matrix  data  tape  is  constructed  on  file  N20  and  consists  of 
five  matrices.  File  N18  is  read  to  copy  two  of  these  matrices. 

Argument  List 
None 


Labeled  Common 

NDICES,  LIMITS,  TAPES,  LPEM 
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Subroutines  Called 
READA,  WRITE 


SUBROUTINE  PL0P 

This  routine  prints  any  real  or  integer  array  with  specified  headings. 
Algorithm 

First,  a title  line  is  printed  using  a single  alphanumeric  word  of  des- 
criptive information  and  row/column  dimensions  of  the  array  to  be  printed. 
The  variable  NT  is  then  tested  to  determine  if  the  array  mode  is  real  or 
integer.  Real  arrays  are  then  printed  row-wise  at  5 values  per  line  while 
integer  arrays  are  printed  row-wise  at  10  values  per  line. 

Input/Output 

Printed  output  is  written  to  file  6. 

Argument  List 

NAME  An  alphanumeric  scalar  for  descriptive  information 

IR  An  integer  scalar  defining  the  row  dimension  of  the  array 

IC  An  Integer  scalar  defining  the  column  dimension  of  the  array 

A A real  or  integer  array  of  data  to  be  printed 

NR  An  integer  scalar  defining  the  row  dimension  for  printing 

NC  An  integer  scalar  defining  the  column  dimension  for  printing 

NT  An  Integer  scalar  defining  whether  the  array  is  real  or  int- 

eger mode 


Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 


FUNCTION  P0LS0L 

This  routine  solves  a third  order  polynomial  for  the  modal  response 
correction  factor  §. 

Algorithm 

In  the  original  theoretical  approach,  geometric  nonlinearity  was  to 
be  accounted  for  by  scaling  the  modal  response  by  the  correction  factor  a. 
This  is  no  longer  applicable  and,  in  the  final  version  of  the  code, 
routine  P0LS01  is  never  referenced. 


The  polynomial  expression  was  formed  in  the  following  manner. 


■ \ 6SLfl  Sk0 

P 

k « 1,  2 

1 aaT  t 

? \ tks 

k * 1,  2 

* 2 (vL  M vl  " vVl^  V0-l) 

P P 

4ECU  * T <V6-1EB-lVl  " VL6^S-1VL8) 


■ ? 51le  Vl  “lB 


S^U  " SEHL8  * SECLB  * 8CKL8 


\ ‘ ' ^ 


al  * 5Eis  * “fib  * "fls 


V ■ HF28  + Uf2B 

3 
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n3g " 'Ah& 

• 0 

for  the  positive  value  closest  to 

unity. 

Inout/Qutput 

Intermediate  data  and  a are  printed  on  file  6. 

Argument  List 

EBCL  A real  scalar  equal  to  SE^ 

Labeled  Common 
NDICES,  LIMITS 

Subroutines  Called 

ASYMB,  MULT,  RGEIG,  SMULT,  ZER0 

Error  Detection 
None 


% * + \*l  + %S8 


This  expression  was  then  solved 
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SUBROUTINE  PREBAL 


This  routine  permanently  updates  joint  coordinates  and  regenerates 
matrices  Fp  and  up. 

Algorithm 

Initialization  steps  include  file  positioning,  calling  routine  PREBLL 
to  allocate  space  for  Intermediate  data,  and  setting  control  flags.  The 
modal  response  is  then  scaled  by  the  correction  factor  a.  This  step  was 
part  of  the  original  design  and  Is  no  longer  required.  The  transformed 
modal  inertia  forces  are  then  computed. 

A loop  is  then  entered  whose  index  is  the  number  of  physical  elements 
in  the  model.  The  first  processing  step  within  the  loop  is  the  reading 
of  the  ECT  record  for  the  element  from  file  N12.  The  record  length  is 
tested  to  determine  element  type  and  appropriate  control  flags  are  set 
accordingly. 

A test  is  then  made  to  determine  if  the  element  has  failed  in  a pre- 
vious increment  by  examining  the  value  of  A(KDEBCl).  This  is  part  of  the 
original  design  for  material  nonlinearity  and  is  not  required. 

A test  is  then  made  on  logical  variable  BETABAR  to  detect  a second 
iterative  solution  due  to  material  nonlinearity.  This  test  as  well  as 
others  appearing  within  this  loop  is  no  longer  applicable.  The  same  is 
true  of  the  processing  initiated  when  BETABAR  is  true. 

The  incremental  element  displacements  and  velocities,  6e  and  6e,  are 
read  from  file  N7.  The  scaling  of  the  matrices  by  § Is  part  of  the  orig- 
inal design  and  is  no  longer  necessary. 

Routine  P8ARUF  is  then  called  to  read  matrices  P. I(r  and  F:  for  the 

UF  Fs_-, 

element  from  files  Nil  and  N13,  respectively.  Routine  PREBGM  is  called  to 
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permanently  update  geometry  using  the  ECT  array  and  matrix  6e  and  to  re- 
generate matrices  Fp  and  Op.  Matrix  D is  then  computed  for  the  new 
geometry.  6 


The  element  stiffness,  damping,  and  thermal  deformation  matrices  are 
read  from  N1  and  the  element  forces  previously  computed  by  routine  FIFDEF, 
are  read  from  file  N5.  The  contribution  of  the  element  to  P(q)u  Is  then 
computed.  The  Incremental  element  forces  are  then  computed  from  F„  and 


_ 8-1 


read  from  file  N4.  After  this,  the  element  contribution  to  ma 
is  computed. 


Finally,  matrix  Fp  is  output  to  file  N14,  matrices  Op  and  <5FK  are 
8 

output  to  file  N6,  and  matrix  D Is  output  to  file  N19. 

This  ends  the  element  processing  loop.  The  final  processing  step 
consists  of  positioning  files  and  equating  files  N1  and  N2  and  files  N16 
and  N17.  This  Is  done  because  matrices  k,  c,  5iy,  and  eT  are  now  assumed 
constant.  In  the  original  design,  these  files  were  rewritten  and  "flip 
flopped"  at  each  increment  since  these  matrices  may  be  regenerated  due  to 
material  nonlinearity. 


Interspersed  in  the  code  of  this  routine  are  calls  to  routine  CHKPNT. 
This  routine  prints  preselected  Intermediate  data  at  the  specified  points 
for  program  debugging. 


Input/Output 

The  following  data  is  read  and  written  during  the  execution  of  PREBAL: 


PUF 

read  from 

Nil 

ECT 

read  from 

N12 

E.  c,  «iT 

read  from 

N1 

read  from 

N13 

fk 

Vi 

read  from 

N4 

K 

read  from 

N5 

<5e,  <$’e 

read  from 

N7 

V 

written  to 

N14 

D 

written  to 

N19 

at,  6F,. 

written  to 

N6 

Argument  List 
None 

Labeled  Common 

NOICES,  LIMITS,  TAPES,  LPEM 

Subroutines  Called 

ADO,  ASYMB,  CHGSGN , CHKPNT , C0PY , MULT,  PBARUF , PREBGM,  PREBLL,  READA, 
REAOM,  SMULT,  TMULT,  WRITE,  WRITEM,  2ER0 

Error  Detection 
None 


SUBROUTINE  PREBGM 


This  routine  controls  the  updating  of  joint  coordinates  and  regenera- 
tion of  matrices  F^  and  for  an  element. 

Algorithm 

Routine  PREBGU  is  called  first  to  permanently  update  joint  coordinates. 
The  length  of  the  ECT  record  is  then  tested  to  determine  element  type  and 
appropriate  routines  are  called  to  regenerate  Fp  and  ap  based  on  the  new 
geometry. 

Input/Output 

None 

Argument  List 
None 

Labeled  Common 

NOICES,  LIMITS,  TAPES,  LPEM 

Subroutines  Called 

LPBG,  LPCFFB,  LPCG,  LPCSFB,  LPMFFB,  LPMG,  IPMSZD,  PREBGU,  ZER0 

Error  Detection 
None 
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SUBROUTINE  PREBGU 


This  routine  permanently  updates  joint  coordinates  and  assembles  ele- 
ment parameters  from  array  A(IECT). 

Algorithm 

The  length  of  the  ECT  record  is  tested  to  determine  element  type  and 
a transfer  made  to  the  appropriate  code.  Specific  data  for  each  type  ele- 
ment is  extracted  from  array  A(IECT)  and  stored  in  array  JM  In  labeled 
common  block  LPEM.  The  data  extracted  for  a bar  is  the  area;  for  a membrane, 
the  thickness  and  stress  orientation  angle;  and  for  a cell,  the  stress 
orientation  angle.  The  number  of  joints  for  the  element  type  is  also  set  in 
this  section  of  code. 

A loop  is  then  entered  whose  index  is  the  number  of  joints  defining 
the  element.  Within  this  loop,  the  joint  numbers  of  the  joints  defining 
the  element  are  also  stored  in  array  JM  and  are  used  together  with  the  ele- 
ment displacements  to  update  the  joint  coordinates.  Array  A(LU)  is  used 
to  flag  each  joint  as  it  is  updated  since  more  than  one  element  may  be 
connected  to  a joint  and  each  joint  need  be  updated  only  once. 

Input/Output  • 

None 

Argument  List 
None 

Labeled  Connon 

NDICES,  LIMITS,  TAPES,  LPEM 

Subroutines  Called 


SUBROUTINE  PREBLL 

This  routine  allocates  partitions  in  array  A in  blank  common  for 
temporary  use  by  routine  PREBAL. 

Algorithm 

Three  indices  for  partitions  of  length  30,  30,  and  240  are  determined 
and  stored  in  labeled  common  block  LPEM.  The  partitions  are  contiguous 
and  begin  at  A(ISK). 

All  additional  code  in  this  routine  is  no  longer  applicable  since  it 
is  based  on  the  original  theoretical  approach  using  a. 

Input/Output 

In  the  obsolete  code,  matrices  6e  and  6e  were  computed  and  written  to 
file  N7. 

Argument  List 
None 

Labeled  Common 

NDICES , LIMITS,  TAPES,  LPEM 

Subroutines  Called 

CHGSGN , PBARUF,  TMULT , WRITEM 

Error  Detection 
None 
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SUBROUTINE  PREBST 

This  routine  controls  the  updating  of  element  stiffness  and  damping. 
Algorithm 

This  routine  was  intended  to  be  the  executive  routine  for  the  element 
stiffness  and  damping  updating  module.  The  design  would  provide  for  calls 
to  other  routines  to  test  the  change  in  temperature  and  stress/strain  state 
of  the  element  since  last  update.  If  necessary,  other  routines  would  be 
called  to  regenerate  material  properties,  matrices  k and  c,  and  update 
the  EVT  table. 

This  routine  currently  performs  no  operations  other  than  setting  two 
logical  flags  false  which  were  intended  to  indicate  element  failure  and 
element  updating.  In  the  final  version  of  the  code,  this  routine  is  never 
referenced . 

Input/Output 

None 

Argument  List 
None 

Labeled  Common 

NDICES,  LIMITS,  TAPES,  LPEM 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  PREEIG 


This  routine  generates  the  transformed  modal  matrices,  K,  C,  M,  and  P. 
Algorithm 

Incremental  solution  processing  begins  with  the  execution  of  routine 
PREEIG.  First,  the  transformed  incremental  applied  loads  for  the  incre- 
ment, if  any,  are  read  from  file  N18.  The  matrix  of  transformed  loads  P 
is  then  partially  assembled  according  to 

^ = 6^U  ' ?(M)U  + 5%)U 

where  SPy  are  the  unbalanced  forces  from  the  previous  increment,  P^y 
are  the  inertia  forces  from  the  previous  increment,  and  6P^y  are  the 
applied  loads. 

A loop  is  then  entered  whose  index  is  the  number  of  elements  in  the 
Structural  model.  The  following  operations  are  performed  for  each  element. 

Read  k,  c,  and  6eT  from  file  N1 
5Fko  * - k «T 
Read  D from  file  N3  (D  = Pyp  Fp) 

P = P + D 5FKc 
DK  = D k 
K ■ K + DK  0T 
C * C + D c DT 
Read  from  file  N4 

FK  * fk  * 5FKo 
Write  DK,  k and  FK  to  file  N6 

Write  <5FKo  to  file  N15 
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The  last  step  in  this  sequence,  writing  5FKq  to  file  N15  is  part  of 
the  original  design  code  and  is  not  presently  required. 

After  all  bars,  membranes,  and  cell  elements  have  been  processed, 
the  assembly  of  the  transformed  loads  is  completed  by  subtracting  the 
modal  damping  forces  of  the  previous  increment  from  the  partially 

assembled  loads  P. 

The  sequence  of  operations  above  is  slightly  different  on  the  initial 
pass  for  the  first  increment.  Matrix  0 is  computed  from  matrices  PuF  and 
Fp  read  from  files  Nil  and  N13,  respectively,  and  then  matrix  D is  written 
to  file  N3.  Matrix  F^,  the  element  forces  from  the  previous  increment, 
is  initialized  to  zero  rather  than  read  from  file  N4.  Matrix  M is  comp- 
uted according  to 


M 


where  M is  implicitly  initialized  to  zero  as  are  K and  C in  the  sequence 

above.  After  all  bar,  membrane,  and  cell  elements  have  been  processed, 

routine  PTMASS  is  called  by  PREEIG  to  add  contributions  from  point  mass 

elements,  if  any,  to  matrix  M.  Finally,  any  null  rows/columns  of  M are 

-4 

augmented  on  the  diagonal  with  a value  equal  to  1 x 10  of  the  root  mean 
square  of  all  non  zero  diagonal  elements  of  the  matrix.  Routine  CHLSKY 
is  then  called  to  decompose  M.  The  decomposition  of  this  matrix  then 
remains  core  resident  for  the  remainder  of  the  run. 


Input/Output 

Intermediate  printed  output  is  written  to  file  6.  Matrix  data  is  read 
and  written  as  follows: 

k,  c,  6iy  read  from  N1 

D read  from  N3 

F„  read  from  N4 

KS-1 


449 


DK,  k,  FK  written  to  N6 

5FKq  written  to  NT 5 

Argument  List 
None 

Labeled  Common 
NOICES , LIMITS,  TAPES 

Subroutines  Called 

ABSYM,  ADD,  ASYMB,  CHGSGN,  CHLSKY,  C0PY,  EUTL9,  MBAR,  MULT,  PBARUF,  PL0P, 
PTMASS,  READA,  READM,  SYMABT,  WRITE,  WRITEM,  ZER0 

Error  Detection 
None 
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SUBROUTINE  TRNMLT 

This  routine  performs  an  incore  transpose  matrix  multiplication. 
Algorithm 

If  a cumulative  summation  of  matrix  products  is  not  requested,  the 
product  matrix  is  initialized  to  zero.  The  cumulative  summation  of  matrix 
products  is  then  performed  according  to 

C = C + ATB 


Input/Output 

None 


Argument  List 


C 

A 

B 

L 

M 

N 

MR0W 

MCI 

MC2 

SUM 


A real  array  for  the  product  matrix. 

A real  array  for  the  premultiplier  matrix 

A real  array  for  the  postmultiplier  matrix 

An  integer  scalar  defining  the  usable  row  dimension  of  A and  B 

An  integer  scalar  defining  the  usable  column  dimension  of  B and  C 

An  integer  scalar  defining  the  usable  row  dimension  of  C and 

the  usable  column  dimension  of  A 

An  integer  scalar  defining  the  row  dimension  of  A and  B 

An  integer  scalar  defining  the  row  dimension  of  C and  the 

column  dimension  of  A 

An  integer  scalar  defining  the  column  dimension  of  B and  C 
A logical  scalar  flag  for  cumulative  summation 


Labeled  Common 
None 


Subroutines  Called 
None 

Error  Detection 
None 
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APPENDIX  F 

POSTPROCESSOR  ROUTINES 
AND 

LABELED  COMMON  BLOCKS 


This  appendix  contains  detailed  descriptions  of  all  routines  and  labeled 
common  blocks  in  this  program.  Table  F gives  either  page  number  references 
within  this  document  or  references  to  other  documents  for  documentation 
of  each  routine  or  labeled  common  block.  Some  page  number  references  may 
be  to  preceding  appendices  where  the  documentation  for  a routine  in 
this  program  is  identical  to  a previously  documented  routine.  This  does 
not  imply  verbatum  source  code  duplication  for  the  routine,  only  functional 
duplication  is  implied. 


The  detailed  description  of  each  routine  is  divided  into  the  following 
subheadings: 


Algorithm 
Input/Output 
Argument  List 
Labeled  Common 
Subroutines  Called 
Error  Detection 


verbal  flow  chart  of  routine  logic  and  data  flow 

description  of  all  external  data  set  input/output 

name,  type,  and  description  of  each  argument 

list  of  all  labeled  common  blocks  declared 

list  of  all  routines  called 

description  of  tests  made  for  errors  and  action 
taken 


The  detailed  description  of  each  labeled  common  block  is  divided  into 
the  following  subheadings: 


Declaration 


Contents 


Usage 


verbatum  declaration  of  the  labeled  common  block 

name  and  description  of  each  variable  appearing 
in  the  declaration 

list  of  all  routines  which  contain  declarations 
for  the  labeled  common  block 


TABLE  F.  INDEX  TO  POSTPROCESSOR  ROUTINES  AND 
LABELED  COMMON  BLOCKS 


Page 

MAIN  PROGRAM  P0ST 456 

LABELED  COMMON  INDEX  457 

LABELED  COMMON  PARM 459 

SUBROUTINE  BARS 462 

SUBROUTINE  BLKIN  454 

SUBROUTINE  CELLS  455 

SUBROUTINE  CHKIN  467 

SUBROUTINE  CRDIN  469 

SUBROUTINE  EBAR 470 

SUBROUTINE  ECEL . 471 

SUBROUTINE  . EMEM 473 

SUBROUTINE  EUTL9  , Ref.  6 

SUBROUTINE  INITL 475 

SUBROUTINE  JNTPR 477 

SUBROUTINE  U0INTS  479 

SUBROUTINE  MEMS 481 

SUBROUTINE  M0DES  483 

SUBROUTINE  PBUPT  484 

SUBROUTINE  P0UT 486 

SUBROUTINE  SELCT  487 

SUBROUTINE  SKPALL  489 

SUBROUTINE  READC  490 

SUBROUTINE  ZER0 491 


MAIN  PROGRAM  P0ST 


This  routine  calls  the  initialization  routine  and  the  increment 
processing  routine. 

Algorithm 

The  F0RTRAN  logical  unit  numbers  of  the  three  devices  used  and  the 
maximum  number  of  lines  and  columns  per  page  are  initialized  in  DATA 
statements . 

The  initialization  routine  INITL  is  called  first  followed  by  the 
call  to  the  increment  processing  routine  P0UT. 

Input/Output 

Error  messages  are  output  to  unit  6. 

Argument  List 
None 

Labeled  Common 
PARM,  INDEX 

Subroutines  Called 
INITL,  P0UT 

Error  Detection 

If  an  error  occurs  in  either  routine  called,  an  error  message  is 
printed  with  the  error  number;  i.e., 

*****  ERROR  nnnnnn  DETECTED  ***** 
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LA8ELED  COMMON  INDEX 


This  common  block  is  used  to  store  pointers  into  blank  common  array 
A which  are  the  beginning  locations  of  partitions  of  array  A and  to  store 
other  program  parameters. 


Declaration 


C0MM0N  / INDEX  / ITTT  ,ITIM  ,IC0R  ,IPRN  , IRED  ,IINC  ,ISEL 
.IELEM  .IBLHD  .IMLHD  ,ICLHD  .IBLPR  .IMLPR  .ICLPR 
, IPBUPT, IEND  ,ICLMAX,ILNMAX,ILINE  ,IR0W  ,IC0L 
» ITP1  , ITP2  ,ITP3  , ITVLS  , I ERROR , I FLGPR , 1 1 NDEX 


Contents 


ITIT 

Index 

of 

array  A 

ITIM 

• Index 

of 

array  A 

IC0R 

Index 

of 

array  A 

IPRN 

Index 

of 

array  A 

IRED 

Index 

of 

array  A 

I INC 

Index 

of 

array  A 

ISEL 

Index 

of 

array  A 

IELEM 

Index 

of 

array  A 

IBLHD 

Index 

of 

array  A 

IMLHD 

Index 

of 

array  A 

ICLHD 

Index 

of 

array  A 

IBLPR 

Index 

of 

array  A 

for  title  information 

for  incremental  times 

for  joint  coordinates 

for  print  buffer 

for  input  record  buffer 

for  increment  selection  table 

for  joint/element  selection  tables 

for  element  numbers  for  printing 
for  bar  element  line  headers 

for  membrane  element  line  headers 

for  cell  element  line  headers 

for  bar  element  print  line  flags 
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IMLPR 


Index  of  array  A for  membrane  element  print  line  flags 


ICLPR 

IPBUPT 

I END 

IFLGPR 

ICLMAX 

ILNMAX 

ILINE 

IR0W 

IC0L 

ITP1 

ITP2 

ITP3 

ITVLS 
IERR0R 
I INDEX 


Index  of  array  A for  cell  element  print  line  flags 

Index  of  array  A for  matrix  PBUPT  partition 

Index  of  array  A of  last  word  used 

Intermediate  print  flag  for  check  out 

Maximum  number  of  printed  columns  per  page 

Maximum  number  printed  lines  per  page 

Number  of  last  line  printed  on  a page 

Number  of  lines  printed  for  type  of  element  currently 
printing 

Number  of  columns  on  page  currently  being  printed 

Number  of  unit  which  is  used  to  store  joint/element 
selection  tables 

Number  of  unit  where  incremental  solution  output  resides 

Number  of  unit  used  to  store  selected  partitions  of 
matrix  PBUPT 

Number  of  current  BETA  being  processed 
Main  error  flag 

Number  of  words  in  common  block  INDEX 


Usage 

Labeled  common  block  INDEX  together  with  labeled  common  block  PARM 
and  blank  common  are  used  as  a group  by  all  principle  routines. 
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LABELED  COMMON  PARM 


This  common  block  is  used  to  store  model  definition  data  and  program 

generated  print  control  parameters. 

Declaration 

COMMON  / PARM  / NOTS  ,NCNTS  , NMATS  .NBARS  ,NMEMS  .NCELS  .NPTMS 

NFD0F  .NM0DS  , NLDJTS.N08RC  .ABTMP  .AMCHT  .NMC0F 

NMWRD  .NMLNG  , NMLNGM .ASTC0F .ACMC0F .NTVLS  .ADSPCF 
NSELI  .NSELJ  , NSELB  .NSELM  .NSELC  .NPRJC  .NPRJD 

NPRJV  .NPRJA  , NPRMD  ,N?RMV  ,NPRMA  .NPRBF  .NPRBS 

NPRBSS.NPRBE  , NPRMF  .NPRMS  .NPRMSS .NPRME  .NPRCF 
NPRCS  .NPRCSS,  NPRCE  ,NPARM 

Contents 


NJTS 

Number  of  joints 

NCNTS 

Number  of  constraints 

NMATS 

Number  of  materials 

NBARS 

Number  of  bars 

NMEMS 

Number  of  membranes 

NCELS 

Number  of  cells 

NPTMS 

. Number  of  point  mass  elements 

NED0F 

Number  of  edge  degrees  of  freedom 

NM0DS 

Number  of  modes 

NLDJTS 

Number  of  loaded  joints 

N0BRC 

Number  of  oblique  constraints 

ABTMP 

Base  temperature 

AMCHT 

Mechanical  equivalent  of  heat 

NMC0F 

Number  of  coefficients  in  the  material  property  table 

NMWRD 

Number  of  descriptive  words  in  material  property  tables 

NMLNG 

Number  of  words  in  material  property  record 
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i. 


NMLNGM 

ASTC0F 

ACMC0F 

NTVLS 

ADSPCF 

NSELI 

NSELJ 

NSELB 

NSELM 

NSELC 

NPRJC 

NPRJD 

NPRJV 

NPRJA 

NPRMD 

NPRMV 

NPRMA 

NPRBF 

NPRBS 

NPRBSS 

NPRBE 


Number  of  words  In  all  material  property  records 

Cell  stiffness  cutoff  coefficient 

Bar  compliance  suppression  coefficient 

Number  of  time  Intervals 

Joint  displacement  scalar 
Selectivity  flag  for  increments 

Selectivity  flag  for  joints 

Selectivity  flag  for  bars 

Selectivity  flag  for  membranes 

Selectivity  flag  for  cells 

Print  option  flag  for  joint  coordinates 

Print  option  flag  for  joint  displacements 

Print  option  flag  for  joint  velocities 

Print  option  flag  for  joint  accelerations 

Print  option  flag  for  modal  displacements 

Print  option  flag  for  modal  velocities 

Print  option  flag  for  modal  accelerations 

Print  option  flag  for  bar  forces 

Print  option  flag  for  bar  stresses 

Print  option  flag  for  bar  strains 

Print  option  flag  for  bar  equivalent  stresses 
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NPRMF 


Print  option  flag  for  membrane  forces 


NPRMS 

NPRMSS 

NPRME 

NPRCF 

NPRCS 

NPRCSS 

NPRCE 

NPARM 


Print  option  flag  for  membrane  stresses 

Print  option  flag  for  membrane  strains 

Print  option  flag  for  membrane  equivalent  stresses 

Print  option  flag  for  cell  forces 

Print  option  flag  for  cell  stresses 

Print  option  flag  for  cell  strains 

Print  option  flag  for  cell  equivalent  stresses 

Number  of  words  in  common  block  PARM 


Usage 

Labeled  common  block  PARM  together  with  labeled  common  block  INDEX 
and  blank  common  are  used  as  a group  by  all  principle  routines. 


461 


SUBROUTINE  BARS 


This  routine  prints  selected  bar  element  data. 

Algorithm 

If  no  bar  data  exists.,  control  is  returned  to  the  calling  routine. 
If  bar  data  exists  but  none  has  been  requested  for  printing,  the  bar 
data  on  input  tape  ITP2  is  read  over  and  control  returned  to  the  call- 
ing routine. 

If  bar  data  exists  and  Is  to  be  printed,  the  bar  selection  table 
is  read  from  scratch  tape  ITP1  into  array  A at  location  ISEL.  The  bar 
data  is  then  read  from  input  tape  ITP2  one  element  at  a time  and  stored 
in  array  KPRN.  The  element  selection  table  is  checked  for  the  bar 
being  processed  and,  if  not  selected,  data  for  the  next  bar  is  read 
from  the  input  tape. 

The  element  number  is  stored  for  use  as  a heading  on  the  column 
of  KPRN  when  it  is  printed.  The  counter  for  number  of  columns  of  KPRN 
used  is  incremented  and  tested  against  the  maximum  number  of  columns 
specified  for  array  KPRN  which  is  the  maximum  number  of  columns  to  be 
printed  per  page.  When  array  KPRN  is  full  or  element  data  is  exhausted 
on  the  input  tape,  the  data  in  array  KPRN  is  printed. 

If  equivalent  stresses  are  to  be  printed,  routine  EBAR  is  called 
which  augments  array  KPRN  with  equivalent  stresses.  Line  counters  are 
checked  and  appropriate  headers  are  printed  using  title  information 
from  array  A at  location  ITIT,  the  time  increment  stored  in  array  A, 
and  the  element  numbers  stored  in  array  A.  Using  the  line  selection 
array  and  line  header  array  assembled  by  routine  BLKIN,  appropriate 
rows  of  array  KPRN  which  correspond  to  print  lines  are  identified  and 
printed  with  appropriate  headers. 


Input/Output 

The  bar  element  selectien  table  is  read  from  scratch  tape  ITP1 
if  appropriate.  The  bar  element  data  is  read  from  input  tape  ITP2. 
Selected  bar  element  data  is  output  to  unit  6. 

Argument  List 

KPRN  An  integer  array  used  to  store  bar  element  data  where 

each  column  contains  the  forces,  stresses,  strains,  and 
equivalent  stresses  for  an  element 

OR0W  An  integer  scalar  specifying  the  row  dimension  for  array 

KPRN 

Labeled  Common 
PARM,  INDEX 

Subroutines  Called 
EBAR,  READC' 

Error  Detection 


SUBROUTINE  BLKIN 


r 


- 


This  routine  initializes  the  element  line  header  and  print  flag 
arrays . 

Algorithm 

The  arrays  of  names,  numbers,  and  lengths  associated  with  bar,  mem- 
brane, and  cell  element  printed  data  are  Initialized  in  DATA  statements. 
Using  these  arrays  and  the  four  subset  print  option  flags  for  each  of 
the  three  elements,  arrays  of  line  headers,  KHD,  and  arrays  of  line 
print  flags,  KPR,  are  assembled. 

Input/Output 

None 

Argument  List 

K0PT  . An  integer  array  of  four  print  flags  for  each  of  three 

element  types 

KHD  An  alphameric  array  of  headers  for  each  line  of  output  for 

each  of  three  element  types 

KPR  An  integer  array  of  print  flags  for  each  line  of  output 

for  each  of  three  element  types 

Labeled  Common 
None 


Subroutines  Called 

None 

Error  Detection 

None 

- 1 
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SUBROUTINE  CELLS  ' 


This  routine  prints  selected  cell  element  data. 

Algorithm 

If  no  cell  data  exists,  control  is  returned  to  the  calling  routine. 

If  cell  data  exists  but  none  has  been  requested  for  printing,  the  cell 
data  on  input  tape  ITP2  is  read  over  and  control  returned  to  the  calling 
routine. 

If  cell  data  exists  and  is  to  be  printed,  the  cell  selection  table 
is  read  from  scratch  tape  ITP1  into  array  A at  location  ISEL.  The  cell 
data  is  then  read  from  input  tape  ITP2  one  element  at  a time  and  stored 
in  array  KPRN.  The  element  selection  table  is  checked  for  the  cell 
being  processed  and,  if  not  selected,  data  for  the  next  cell  is  read 
from  the  input  tape. 

The  element  number  is  stored  for  use  as  a heading  on  the  column  of 
KPRN  when  it  is  printed.  The  counter  for  number  of  columns  of  KPRN  used 
is  incremented  and  tested  against  the  maximum  number  of  columns  specified 
for  array  KPRN  which  is  the  maximum  numoer  of  columns  to  be  printed  per 
page.  When  array  KPRN  is  full  or  element  data  is  exhausted  on  the  in- 
put tape,  the  data  in  array  KPRN  is  printed. 

If  equivalent  stresses  are  to  be  printed,  routine  ECEL  is  called 
which  augments  array  KPRN  with  equivalent  stresses.  Line  counters  are 
checked  and  appropriate  headers  are  printed  using  title  information 
from  array  A at  location  ITIT,  the  time  increment  stored  in  array  A,  and 
:ne  element  numbers  stored  in  array  A.  Using  the  line  selection  array 
an d line  header  array  assembled  by  routine  BLKIN,  appropriate  rows  of 
**•-«/  tcPRN  which  correspond  to  print  lines  are  identified  and  printed 
• *"  ajjonopriate  headers. 
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Input/Output 

The  cell  element  selection  table  is  read  from  scratch  tape  ITP1  if 
appropriate.  The  cell  element  data  is  read  from  input  tape  ITP2.  Select- 
ed cell  element  data  is  output  to  unit  6. 

Argument  List 

KPRN  An  integer  array  used  to  store  cell  element  data  where  each 

column  contains  the  forces,  stresses,  strains,  and  equiv- 
alent stresses  for  an  element 

JR0W  An  integer  scalar  specifying  the  row  dimension  for  array  KPRN 

Labeled  Common 
PARM,  INDEX 

Subroutines  Called 
ECEL,  READC 

Error  Detection 


None 


SUBROUTINE  CHKIN 

This  routine  checks  the  logical  consistency  of  user  specified 
options. 

Algorithm 

First,  a test  is  made  to  determine  if  items  of  this  type  exist  and, 
if  not,  has  a selection  table  been  specified. 

If  no  items  of  this  type  exist  and  no  selection  table  is  specified, 
appropriate  print  flags  in  labeled  common  FARM  are  set  to  zero,  KSEL  is 
set  to  -10  and  I8(K3)  is  set  to  -1. 

If  items  of  this  type  exist,  a test  Is  made  to  determine  if  any 
subsets  of  this  type  were  requested  for  printing.  If  so,  IB(K3)  is 
set  to  KNUM.  If  not,  KSEL  is  set  to  -1  and  IB(K3)  is  set  to  zero.  Then 
a test  is  made  to  determine  if  a selection  table  was  specified. 

Input/Output 

None 

Argument  List 

KNUM  An  integer  scalar  specifying  tne  number  of  items  of  this 

type 

KSEL  An  integer  scalar  input  as  the  user  option  flag  indicating 

sets  of  data  of  this  type 

Kl  An  integer  scalar  indicating  the  first  location  in  array 

IB  of  print  flags  for  this  type 

K2  An  integer  scalar  indicating  the  last  location  in  array 

IB  of  print  flags  for  this  type 

K3  An  integer  scalar  indicating  the  location  in  array  IB 

of  the  flag  indicating  selectivity  for  this  type 
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IERR0R  An  integer  scalar  main  error  flag 

K0DE  An  integer  scalar  specifying  the  type  to  be  processed 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 

Any  inconsistency  between  the  exi stance  or  non-exi stance  of  items 
of  the  type  being  processed,  the  subset  print  flags  specified,  and  the 
selectivity  flag  specified  results  in  the  main  error  being  set  to  K0DE. 
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SUBROUTINE  CRD IN 


This  routine  reads  and  processes  all  card  input. 

Algorithm 

The  first  six  input  cards  are  read  and  the  data  stored  in  labeled 
common  PARM.  User  over-rides  of  default  parameters  are  implemented  as 
required. 

The  next  four  cards  of  title  information  are  read  and  stored  in 
blank  common  at  location  ITIT. 

Routine  SELCT  is  then  called  once  for  each  of  the  following  possible 
input  selection  tables;  increments,  joints,  bars,  membranes,  and  cells. 

Input/Output 

All  input  cards  are  read  from  unit  5 and  output  to  unit  6. 

Argument  List 
None 

Labeled  Common 
PARM,  INDEX 

Subroutines  Called 
SELCT,  ZER0 

Error  Oetection 

Checks  are  made  on  the  sequence  of  all  input  cards  and  on  the  size 
of  available  storage  verses  required  storage.  If  any  error  is  detected, 
the  main  error  flag  is  set  and  control  is  returned  to  the  calling 
routine. 


SUBROUTINE  EBAR 

This  routine  computes  equivalent  stresses  for  a bar  element. 
Algorithm 

In  the  case  of  a bar  element,  the  equivalent  stress  is  equal  to 
the  absolute  value  of  the  computed  stress. 

Input/Output 

None 

Argument  List 

S A real  array  of  bar  element  forces,  stresses,  strains,  and 

equivalent  stresses 

I An  integer  scalar  specifying  the  row  dimension  of  array  S 

U An  integer  scalar  specifying  the  column  dimension  of  array 

. S or  number  of  elements 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 


f 
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SUBROUTINE  ECEL 


This  routine  computes  equivalent  stresses  for  a cell  element. 


Algorithm 

Two  equivalent  stresses  are  computed  for  each  cell  element  corres- 
ponding to  the  upper  and  lower  surfaces  of  the  element.  For  each  surface, 
the  equivalent  stress,  ag,  is  computed  from  the  average  stresses,  ax, 

°y’  V Txy*  Tyz’  and  Tzx’  as  fol1ows: 

51  ' ■ T ( 2’x  - - °z  ) 

52  - J [•'*  * Zay  - °z) 

53  ■ y [ -°x  • °y  * 2°z  ) 


1 
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Input/Output 


None 


Argument  List 

S A real  array  of  cell  element  forces,  stresses,  strains,  and 

equivalent  stresses 

I An  integer  scalar  specifying  the  row  dimension  of  array  S 

J An  integer  scalar  specifying  the  column  dimension  of  array  S 

or  number  of  elements 


Labeled  Common 
None 
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Subroutine  Called 


None 


Error  Detection 
None 


**■ 

! i 
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SUBROUTINE  EMEM 

This  routine  computes  equivalent  stresses  for  a membrane  element. 


Algorithm 

The  equivalent  stress,  for  a membrane  element  is  computed  from 
the  average  stresses,  ax,  ay,  and  t^,  as  follows: 


si 

s2  *Z°y) 


S3  * J ‘ °y  ) 


■ 1 1 ( si  * 5i + s3 + ) 1 2 


[nput/Output 


Argument  List 


A real  array  of  membrane  element  forces,  stresses,  strains, 
and  equivalent  stresses 

An  integer  scalar  specifying  the  row  dimension  of  array  S 

An  Integer  scalar  specifying  the  column  dimension  of  array  S 
or  number  of  elements 


Labeled  Common 


Subroutines  Called 
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SUBROUTINE  INITL 

This  routine  is  the  driver  routine  for  the  initialization  module. 
Algorithm 

After  rewinding  all  tapes,  the  C0NST  array  Is  read  from  input  tape 
ITP2  and  stored  in  the  beginning  of  labeled  common  block  PARM.  Using 
the  problems  constants  so  obtained,  core  is  allocated  for  each  of  the 
required  arrays  and  the  first  location  of  each  is  stored  in  labeled 
coninon  block  INDEX. 

Routine  CRDIN  is  then  called  to  read  all  card  input  containing 
option  and  selectivity  data.  The  arrays  of  time  increments  and  original 
joint  coordinates  are  then  read  from  input  tape  ITP2  and  stored  in  core. 

Tests  are  then  made  to  determine  whether  or  not  data  from  matrix 
PBUPT  is  required.  If  not,  both  matrix  OBP0  and  PBUPT  are  skipped  over 
on  input  tape  ITP2.  If  so,  only  matrix  DBP0  is  skipped  over  and  then 
routine  PBUPT  Is  called  to  assemble  the  required  data. 

Finally,  routine  BLKIN  is  called  to  initialize  element  line  headers 
and  print  flags. 

Input/Output 

Matrices  C0NST,  TIME,  C00ROS,  DBP0,  and,  if  appropriate,  PBUPT 
are  read  from  input  tape  ITP2. 

Argument  List 
None 

Labeled  Common 
PARM,  INDEX 
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Subroutines  Called 


BIKIN,  CRDIN,  EUTL9,  P8UPT,  READC 
Error  Detection 

If  the  main  error  flag  is  returned  with  a non-zero  value  from 
routine  CRDIN,  control  is  returned  to  the  main  program. 


SUBROUTINE  JNTPR 


This  routine  prints  selected  subsets  of  joint  data. 

Algorithm 

Processing  is  controlled  by  a loop  indexed  from  one  to  the  number 
of  selected  joints.  First,  the  partition  of  matrix  PBUPT  for  the  joint 
being  processed  is  read  from  scratch  tape  ITP3  and  stored  in  array  PB. 
An  inner  loop  indexed  from  one  to  the  number  of  subsets  to  be  processed 
is  then  entered.  A maximum  of  two  subsets  can  be  accommodated  by 
routine  JNTPR. 

Argument  KTYPE(J)  is  tested  to  determine  which  of  the  four  possible 
subsets  of  data  is  to  be  assembled  for  printing. 

Coordinate  data  is  assembled  into  array  PRN  by  multiplying  the 
transpose  of  matrix  PBUPT  times  the  modal  displacements  in  array  A to 
obtain  joint  displacements.  These  displacements  are  then  scaled  by  the 
user  input  displacement  coefficient  ADSPCF  before  being  added  to  the 
original  coordinates  to  form  the  final  joint  coordinates  for  the  incre- 
ment. 

Displacement  data  is  assembled  in  array  PRN  in  a similar  manner  as 
coordinate  data  except  the  addition  of  original  coordinates  is  omitted. 

Velocity  data  Is  assembled  in  array  PRN  by  multiplying  the  trans- 
pose of  matrix  PBUPT  times  the  modal  velocities  in  array  A to  obtain 
joint  velocities. 

Acceleration  data  is  assembled  in  a similar  manner  as  velocity  data 
using  the  modal  accelerations  in  array  A. 

Array  PRN  Is  then  printed  with  appropriate  headings  as  a single 
line  of  output. 
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Input/Output 


Matrix  PBUPT  Is  read  from  scratch  tape  ITP3.  Joint  coordinate, 
displacement,  velocity,  and  acceleration  data  are  output  to  unit  6. 

Argument  List 

KTYPE  An  integer  array  of  subset  identification  numbers  from 

1 to  4 corresponding  to  joint  coordinates,  displacements, 
velocities,  and  accelerations,  respectively 

KNUM  An  integer  scalar  specifying  the  number  of  subsets  to 

be  processed 

NAME  An  alphameric  array  of  subset  headings 

PB  A real  array  used  to  store  partitions  of  matrix  PBUPT 

KM0DE  An  integer  scalar  specifying  the  number  of  modes 

C00RD  A real  array  of  original  joint  coordinates 

KJTS  An  integer  scalar  specifying  the  number  of  joints  in 

. the  model 

Labeled  Common 
PARM,  INDEX 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  J0INTS 

This  routine  processes  all  joint  data  for  an  increment. 

Algorithm 

Column  headers  of  two  words  each  for  each  of  the  four  subsets  of 
data  are  initialized  in  array  KEAD  in  DATA  statements.  The  header  for 
the  first  matrix  is  read  from  Input  tape  ITP2  and  the  increment  is 
checked  for  sequence.  The  modal  response  data  is  then  read  into  core 
beginning  at  A(IRED). 

The  main  joint  option  flag  is  checked  to  determine  if  any  joint 
data  is  to  be  printed.  If  not,  control  is  returned  to  the  calling 
program.  If  so,  the  joint  selection  table  is  read  from  scratch  tape 
ITP1  and  stored  in  core  at  A(ISEL). 

Each  of  the  subset  print  flags  is  then  checked.  The  header  array 
NAME  and  other  parameters  are  set  according  to  the  subset  print  flags. 
Routine  JNTPR  is  then  called  to  print  the  first  two  subsets  requested. 
If  more  than  two  subsets  were  requested,  routine  ONTPR  Is  called  again 
to  print  the  third  and/or  fourth  subsets. 

Input/Output 

The  modal  response  data  is  read  from  Input  tape  ITP2.  The  joint 
selection  table  is  read  from  scratch  tape  ITP1. 

Argument  List 
None 

Labeled  Common 


PARM,  INDEX 


JNTPR,  READC 
Error  Detection 


The  increment  number  from  input  tape  ITP2  is  checked  for  correct 
sequence. 

- 
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SUBROUTINE  MEMS 

This  routine  prints  selected  membrane  element  data. 

Algorithm 

If  no  membrane  data  exists,  control  is  returned  to  the  calling 
routine.  If  membrane  data  exists  but  none  has  been  requested  for  print- 
ing, the  membrane  data  on  input  tape  ITP2  Is  read  over  and  control 
returned  to  the  calling  routine. 

If  membrane  data  exists  and  is  to  be  printed,  the  membrane  select- 
ion table  is  read  from  scratch  tape  ITP1  into  array  A at  location  ISEL. 
The  membrane  data  is  then  read  from  input  tape  ITP2  one  element  at  a 
time  and  stored  in  array  KPRN.  The  element  selection  table  is  checked 
for  the  membrane  being  processed  and,  if  not  selected,  data  for  the 
next  membrane  is  read  from  the  input  tape. 

The  element  number  is  stored  for  use  as  a heading  on  the  column  of 
KPRN  when  it  is  printed.  The  counter  for  number  of  columns  of  KPRN 
used  is  incremented  and  tested  against  the  maximum  number  of  columns 
specified  for  array  KPRN  which  is  the  maximum  number  of  columns  to  be 
printed  per  page.  When  array  KPRN  is  full  or  element  data  is  exhausted 
on  the  input  tape,  the  data  in  array  KPRN  is  printed. 

If  equivalent  stresses  are  to  be  printed,  routine  EMEM  Is  called 
which  augments  array  KPRN  with  equivalent  stresses.  Line  counters  are 
checked  and  appropriate  headers  are  printed  using  title  information  from 
array  A at  location  ITIT,  the  time  Increment  stored  In  array  A,  and  the 
element  numbers  stored  in  array  A.  Using  the  line  selection  array  and 
line  header  array  assembled  by  routine  BLKIN,  appropriate  rows  of  array 
KPRN  which  correspond  to  print  lines  are  identified  and  printed  with 
appropriate  headers. 
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Input/Outcut 


The  membrane  element  selection  table  is  read  from  scratch  tape 
ITP1  if  appropriate.  The  membrane  element  data  is  read  from  input  tape 
ITP2.  Selected  membrane  element  data  Is  output  to  unit  6. 

Argument  List 

KPRN  An  integer  array  used  to  store  membrane  element  data  where 

each  column  contains  the  forces,  stresses,  strains,  and 

equivalent  stresses  for  an  element 

/ 

JR0W  An  integer  scalar  specifying  the  row  dimension  for  array 

KPRN 

Labeled  Common 
PARM,  INDEX 

Subroutines  Called 
EMEM,  READC- 

Error  Detection 
None 
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SUBROUTINE  M0OES 


This  routine  prints  selected  modal  data. 

A1 gorl thm 

Subset  print  flags  are  tested  to  determine  if  any  modal  data  is 
to  be  printed.  If  not,  control  is  returned  to  the  calling  routine. 

Each  subset  print  flag  is  tested  individually  and  the  header  and 
print  arrays  are  initialized  accordingly.  Headers  are  stored  In  array 
NAME  and  modal  data  is  stored  in  array  KPRN. 

The  modal  displacements,  velocities,  and/or  accelerations  are 
then  printed  from  arrays  NAME  and  KPRN  with  appropriate  headings  accord 
Ing  to  the  subsets  specified. 

Input/Output 

None 

Argument  List 

KPRN  An  Integer  array  used  to  store  modal  displacements, 

velocities,  and  accelerations 

JR0W  An  Integer  scalar  specifying  the  number  of  modes  or  rows 

of  array  KPRN 

Labeled  Common 
PARM,  INDEX 

Subroutines  Called 
None 

Error  Detection 
None 
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SUBROUTINE  PBUPT 

This  routine  assembles  selected  partitions  of  matrix  PBUPT  and 
writes  the  resulting  data  to  scratch  tape  ITP3. 

A1 qorl thm 

The  previously  assembled  joint  selection  table  is  read  from  scratch 
tape  ITP1  and  stored  in  core.  Input  tape  ITP2  is  then  positioned 
immediately  following  the  header  for  matrix  PBUPT. 

For  each  of  the  selected  joints,  input  tape  ITP2  Is  read  and  approp- 
riate columns  of  matrix  PBUPT  are  extracted.  When  all  three  columns  for 
a joint  have  been  determined,  the  partition  of  PBUPT  is  written  to 
scratch  tape  ITP3  as  one  record. 

Since  those  columns  of  matrix  PBUPT  corresponding  to* constrained 
degrees  of  freedom  are  null,  the  reading  of  the  input  tape  includes 
testing  of  column  number  read  verses  the  column  numbers  associated  with 
the  joint  being  processed.  It  should  be  noted  also  that  assembled 
partitions  of  matrix  PBUPT  which  are  written  to  scratch  tape  may  contain 
null  columns. 

Input/Output 

The  joint  selection  table  Is  read  from  scratch  tape  ITP1 . Matrix 
PBUPT  is  read  from  input  tape  ITP2.  Assembled  partitions  of  matrix 
PBUPT  are  written  onto  scratch  tape  ITP3. 

Argument  List 

JSEL  An  integer  array  used  to  store  the  joint  selection  table 

TEMP  A real  array  used  to  temporarily  store  input  columns  of 

matrix  PBUPT 

P8  A real  array  used  to  assemble  the  three  columns  of  matrix 

PBUPT  corresponding  to  a selected  joint 
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KG  An  integer  scalar  specifying  the  number  of  modes  or  rows  of 

matrix  PBUPT 

Labeled  Common 
PARM,  INDEX 

Subroutines  Called 
EUTL9 

Error  Detection 
None 
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SUBROUTINE  P0UT 

This  routine  is  the  driver  routine  for  the  print  module. 

Algorithm 

For  each  time  increment,  the  following  takes  place.  The  Increment- 
al selectivity  flag  for  the  current  increment  Is  tested.  If  equal  to 
zero,  this  Increment  is  to  be  bypassed  and  no  data  printed.  Routine 
SKPALL  Is  called  to  read  over  all  data  for  this  increment  on  input  tape 
ITP2. 

If  not  equal  to  zero,  each  of  the  following  routines  is  called  to 
process  the  corresponding  type  data  from  input  tape  ITP2;  J0INTS, 

M0DES,  BARS,  MEMS,  and  CELLS. 

Input/Output 

None 

Argument  List 
None 

Labeled  Common 
PARM,  INDEX 

Subroutines  Called 

BARS,  MEMS,  CELLS,  00 I NTS,  M0DES,  SKPALL 
Error  Detection 

If  the  main  error  flag  Is  returned  with  a non-zero  value  from  any 
routine,  control  is  returned  to  the  main  program. 
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SUBROUTINE  SELCT 


This  routine  reads  selection  table  input  cards,  forms  the  selection 
table,  and  writes  the  table  onto  scratch  tape  ITP1 . 

Algorithm 

The  input  argument  K0DE  Is  tested  to  determine  which  selection 
table  is  to  be  processed.  Processing  parameters  are  then  initialized 
according  to  which  table  is  to  be  processed. 

Routine  CHKIN  Is  then  called  to  check  the  logical  consistency  of 
Input  options  and  to  return  a flag  indicating  which  one  of  three  possible 
paths  to  follow. 

If  the  user  has  requested  all  Items  of  this  type,  then  no  Input 
selection  table  is  expected.  The  code  then  generates  a selection  table 
requesting  all  items  and  writes  this  table  to  scratch  tape  ITP1. 

If  the  user  has  specified  the  selectivity  option  for  this  type, 
the  program  reads  the  selection  table  cards  and  assembles  the  selection 
table  as  so  Indicated.  The  table  is  then  written  to  scratch  tape  ITP1. 

If  either  no  items  of  this  type  exist  or  no  items  of  this  are  re- 
quested for  printing,  then  no  input  selection  table  Is  expected  and 
nothing  is  written  on  the  scratch  tape. 

An  exception  to  the  above  is  that  in  the  case  of  processing  the 
Incremental  selection  table,  the  resulting  selection  table  Is  left  in 
core  and  not  written  to  the  scratch  tape. 

Input/Output 

The  selection  table  cards  present  are  read  from  unit  5.  The 
assembled  selection  tables  for  those  types  so  indicated  by  user  specified 
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options  are  written  to  scratch  tape  ITP1 . 


Argument  List 

OSEl  An  integer  array  in  which  the  selection  table  is  formed 

K0DE  An  integer  scalar  Identifying  which  selection  table  is  to 

be  processed 

Labeled  Common 
PARM,  INDEX 

Subroutines  Called 
CHKIN 

Error  Detection 

Checks  are  made  for  correct  table  number  on  the  input  cards  and 
that  the  values  specified  are  within  range  for  this  type.  A test  is 
also  made  to  insure  that  a null  selection  table  has  not  been  specified. 
If  any  of  these  errors  are  detected,  the  main  error  flag  is  set  to  the 
appropriate  value  and  control  is  returned  to  the  calling  routine. 
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SUBROUTINE  SKPALl 


i 


This  routine  reads  over  all  data  for  an  Increment  on  input  tape 
ITP2. 

A1 gorithm 

The  header  of  the  first  matrix  for  the  increment  is  read  from  in- 
put tape  ITP2.  The  seventh  word  of  the  header  record  Is  the  increment 
number  which  is  tested  against  the  anticipated  Increment  number  to 
insure  proper  sequencing. 

The  input  tape  contains  matrices  only  for  each  element  type  that 
exists  in  the  model.  Therefore,  appropriate  problem  parameters  are 
tested  to  determine  which  element  types  exist.  Input  tape  KTP2  is  then 
read  past  the  number  of  matrix  trailers  corresponding  to  the  number  of 
matrices  present. 

Input/Output 

Input  tape  ITP2  is  read  past  all  data  for  the  increment. 

Argument  List 
None 

Labeled  Common 
PARM,  INDEX 

Subroutines  Called 
READC 

Error  Detection 

The  Increment  number  of  the  data  on  input  tape  ITP2  is  tested 
against  the  anticipated  increment  number.  If  not  equal,  the  main  error 
flag  is  set  to  200  and  control  is  returned  to  the  calling  routine. 
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SUBROUTINE  READC 


This  routine  reads  a F0RMAT  tape  record. 

Alqori thm 

The  specified  tape  is  read  according  to  F0RMAT  convention  and 
the  data  stored  in  array  A. 

Input/Outout 

One  record  is  read  from  tape  ITAPE. 

Argument  List 

IC0L  An  integer  scalar  defining  the  column  number 

K0DE  An  integer  scalar  indicating  expanded  or  compressed 

format 

NUM  An  integer  scalar  defining  the  number  of  words 

remaining  in  the  record 

A A real  array  used  to  store  the  data  read 

ITAPE  An  integer  scalar  defining  the  file  to  be  read 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 


None 


SUBROUTINE  ZERO 

This  routine  changes  negative  zero  values  to  positive  values  for 
printing. 

Algorithm 

Each  value  in  the  input  array  Is  tested  for  a numerical  zero  and, 
if  so,  is  set  equal  to  a positive  zero  integer  value. 

Input/Output 

None 

Argument  List 

K An  integer  array  of  values  to  be  processed 

N An  integer  scalar  equal  to  the  length  of  array  K 

Labeled  Common 
None 

Subroutines  Called 
None 

Error  Detection 
None 
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